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Entra anche tu nel misterioso mondo 

degli Etruschi con una favolosa avventura interamente italiana. 
Incontrerai fantasmi, regine affascinanti, 
lupi e altre strane creature che popolano 
le antichissime mura di Veio, autentica città etrusco. 

Scopri con un gioco irresistibile i misteri di questa affascinante civiltà. 
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Sempre più facile 

L a Electronic Service annuncia u- 
na nuova versione dell’espansio¬ 
ne Es-9 per Commodore 64 
comprendente modifiche al Fast 
disk loader, estensioni di comandi esegui¬ 
bili da Basic e introduzione di abbreviazio¬ 
ni per agire da programma su disco. F. 
stato altresì modificato il comando List 
directory (6) con l’aggiunta delle possibili¬ 
tà di cancellazione e cambiamento del no¬ 
me dei file contenuti sul floppy. Per il 
Basic è stato introdotto il comando $ me¬ 
diante il quale è possibile ottenere la lista 
del contenuto di un disco con tutte le mo¬ 
dalità e possibilità del comando List direc¬ 
tory (caricamento, cancellazione, modifica 
del nome). 

Electronic Service di Loris Massarelli 
Via Panetti 14/16 
Tel. 040-47446) 

46100 Pisa 




La stagione 
di Commodore Time 

S ulla scia del successo e della fama 
conquistata producendo e distri¬ 
buendo home e personal compu¬ 
ter, la Commodore si rivolge ad 
altri settori commerciali, sempre attinenti 
ai consumi dei giovanissimi. 

Per i bambini la collezione Commodore 
Time propone orologi al quarzo disponi¬ 
bili in quattro colori, impermeabili fino a 
30 metri. 

La serie ha un prezzo di 30 mila lire al 
pubblico. 

Ai ragazzi viene proposta una linea elet¬ 
tronica con quadrante analogico e lancette 
colorate, cinturino e quadrante in acciaio 
lucido/satinato. 

Il tutto per 85 mila lire. 

Opinione 

Via G. Giacomo Mora, 22 
20124 Milano 
Tel. 02-6)74061 



Interfaccia per Apple II 

L a Deltaacque Elettronica ha 
messo a punto una scheda di in¬ 
terfaccia per Apple II e compati¬ 
bili, adatta per una vasta gamma 
di applicazioni quali acquisizione dati, 
controllo di processo e didattica. In un’u¬ 
nica scheda sono presenti un convertitore 
analogico/digitale a otto bit con 16 ingres¬ 
si multiplexati, un Via 6522 con 16 e più 
linee di I/O programmabili, due 
timer/counter a 16 bit e uno shift register, 
due convertitori D/A a otto bit e otto linee 
d’ingresso Ttl. La I/O Card viene fornita 
con un manuale d’uso in italiano completo 
di schemi e costa 300.000 lire più Iva. 

Deltaacque Elettronica 
Via dei Gelsi, ) 4 
40040 Cale tifano (FI) 

Tel. 044-662171 















Canada dal 2 Maggio al 13 Ottobre 1986. - 
Expo Info - P. O. Box 1800 - Vancouver 
B. C. Canada 

• L’esposizione Comdex /Europe avrà 
luogo quest'anno a Nizza dal io al 12 Giu¬ 
gno 1986. Parallelamente a essa si svolgerà 
una conferenza sul business software ri¬ 
volta espressamente a distributori e riven¬ 
ditori. The Interface Group - Wtc Stra- 
winskylaan 1245 - 1077 XX Amsterdam - 
The Netherlands - Tel. (3 1) 20-621941. 

• Disponibile su richiesta il catalogo ag¬ 
giornata Evtn Computer per la vendita per 
corrispondenza di materiale per i micro 
Commodore. Con il numero più recente è 
stata introdotta la commercializzazione di 
prodotti messi a punto dagli utenti. Volete 
essere della partita? - Evm Computer - Via 
Marconi 9/À - 52025 Montevarchi (AR) - 
Tel. 055-980242. 



Apricot per tutti 

A gili, aggressivi e poco ingom¬ 
branti, arrivano anche in Italia i 
personal computer della Apri¬ 
cot, distribuiti dalla Ditron di 
Milano. Questo sbarco ha le carte in regola 
per essere ritenuto importante: la Apricot 
International, primo gruppo inglese di mi¬ 
crocomputer c numero quattro in Europa, 
ha dichiarato di volersi inserire tra le prime 
cinque marche nella gamma dei business 
computer in Italia nel 1986. Spera perciò 
che la collaborazione con la Ditron e con 
gli altri subdistributori regionali dia a bre¬ 
ve termine i frutti attesi, facendo leva su un 
parco macchine ampio e innovativo. Si 
tratta di sistemi Ms-Dos, dotati di drive 
per floppy da 3,5 ”, tastiera e mouse a raggi 
infrarossi, equipaggiati con la Gem collcc- 
tion e altro software di emulazione del Pc 
Ibm. La serie Apricot Collection, con i 
modelli Fz, Fio e Fp, punta sul mondo dei 
computer professionali e da ufficio, con 
macchine dotate di 512 Kbyte di Ram c 


almeno un floppy capace di 720 Kbyte. Il 
portatile Fp monta uno schermo Lcd da 25 
righe con una risoluzione di 640 per 200 
punti ed è collegabile a un monitor a colo¬ 
ri, gestiti da 128 Kbyte supplementari di 
Ram. Costa 3.700.000 lire più Iva. I model¬ 
li da scrivania sono l’F2, con due floppy 
per un totale di 1.440 Kbyte in linea, e 
l’Fio con Winchester da io Mbyte incor¬ 
porato. I prezzi sono rispettivamente di 
4.720.000 e 6.675.000 lire senza Iva. 

Di troll S.p.A. 

Viale Certosa, 1 )8 
201)6 Milano 
Tel. o2-)o8)6 4) 



Un po’ di tutto... 

esposizione universale di 
Vancouver aprirà i battenti 
tra poco più di due mesi. Ex- 
po ’86 si svolgerà infatti in 




Commutatore 
per periferiche 

P er risolvere i problemi legati 
alfutilizzo di diverse periferiche 
da connettere a un’unica uscita, 
la Brm propone il suo Transfer 
switch, commutatore manuale che dispo¬ 
ne di un input c di due o più output. Le 
interfacce previste sono la seriale RS-2 32C 
c la parallela Centronics. È possibile per¬ 
tanto collcgare un singolo Pc a due o più 
stampanti o modem, oppure commutare 
due o più Pc su una risorsa comune (mo¬ 
dem, stampante, plotter). Esiste anche una 
versione con due input e due output di 
questi componenti passivi che non richie¬ 
dono manutenzione. Il tutto in 18 per 5,5 
per 13 cm con un peso di 1,3 kg. Il prezzo 
varia dalle 200 alle 300 mila lire secondo il 
tipo di interfaccia richiesto e il numero di 
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Dalla 

gronde 

edicola 

Jackson 

Tutto sul personal 
computer 

PC 

L'unica rivista italiana dedicata ai sistemi 
MS-DOS, Personal computer IBM e 
compatibili. 

11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 44.000 

Personal 

L'unica rivista indipendente per gli utenti dei 
personal computer Olivetti 
11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 42.000 

ttMPUSttJOLA 

La rivista di informatica nella didattica per la 
scuola Italiana. 

9 numeri all'anno: L. 3.000 a numero 
Abbonamento: solo L. 20.000 
_I?_ ■ 

compurer 

Una novità assoluta per l'editoria 
tecnico-scientifica, studiata appositamente 
per i medici, la Rivista di personal computer, 
affari personali e tempo libero. 

11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 45.000 



La prima rivista europea di personal 
computer, software e accessori. Con test, 
novità, analisi del mercato ... 

11 numeri all'anno: L. 5.000 o numero 
Abbonamento: solo L. 43.000 

Quando l’informazione 
fa testo 


In busta chiusa inviata quasto coupon a: 
Gruppo Editoriale Jackson 
via Roselllnl, 12 • 20124 Mi 

□ Desidoro ricevere GRATIS un numero 
della Rivista_ 


(allego L 1.000 in francobolli per I 

contributo spese di spedizione) I 
□ Inviatemi GRATIS il Catalogo della 

Biblioteca JACKSON (allogo L 1000 ' 
in francobolli per contributo spese di I 
spedizione) I 

I 

Noma_• 

I 

Cognome_| 

via_« 

CAP_Città_* ^ 


uscite desiderato. 

Brm Ittilimui 

Lungo Dora Firenze, 21 bis 
10172 Torino 
Tel. 011-2X78811 



Corsi per genitori 
(e figli) 

L a Kinder Computer School ha 
organizzato una serie di corsi di 
introduzione alia programma¬ 
zione in Basic per i modelli 
Commodore 64 e 128. Oltre ai tradizionali 
corsi per ragazzi, la scuola propone una 
serie di 20 lezioni per genitori e figli, allo 
stesso prezzo (220 mila lire) del corso sin¬ 
golo. Adulto e ragazzo utilizzeranno lo 
stesso materiale (computer e dispense), 
partecipando insieme alle lezioni. Sono 
previste versioni dei corsi da effettuarsi 
presso scuole elementari, medie e superio¬ 
ri. 

Kinder Computer Scimi 
Via Vittoria Colonna, 2 
20149 Milano 
Tel. 02-4811240 


Interfaccia per Apple 

O range Micro annuncia la nuova 
versione seriale dclPinterfaccia 
Cìrappler printer per collegare 
le stampanti Imagcwriter I e 11 
e la Scribc all’Apple Ile. 

La Serial Grappler-f offre agli utenti delle 
Image Writcr un insieme di caratteristiche 
non sempre presenti nei prodotti della 
concorrenza. E possibile ottenere la copia 
dello schermo in bianco e nero o a colori, 
richiedere grafici invertiti, ruotati e con 
diverse deformazioni (enhanced ed enlar- 
ged), oltre a disegni in doppia risoluzione. 
L’opzione Buffcrpack, che si innesta diret¬ 
tamente nella scheda Grapplcr+ senza ne¬ 
cessità di cavi né di alimentazione propria, 
fornisce t6, 32 o 64 Kbytc di buffer per la 
stampante, sollevando il sistema dall’atte¬ 
sa del completamento delle operazioni. 
Orange Micro sta sviluppando altri pro¬ 
dotti opzionali in stretta collaborazione 
con i progettisti della Apple. 

Orange Micro Ine. 

1400 N. L akeriew Ave. 

Anaheim, CA 92807 Usa 
Tel. (714) 7792772 
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Pro.dotto 

Proseguiamo con la descrizione 
dell’editor di blocchi 


di L oca Accomazzi Parte seconda 


I n questa puntata trattiamo il prin¬ 
cipale componente del Pro.dotto: 
un programma che, interagendo 
direttamente con ProDos, vi per¬ 
mette d'intervenire direttamente nella 
struttura dei dischi. Lo abbiamo chia¬ 
mato... 

L’editor di blocchi 

Un blocco è l'unità minima di spazio 
sul disco che ProDos può indirizzare 
separatamente, ed è composta da 512 
byte (mezzo Kbyte). Normalmente voi 
non vi occupate di come i blocchi sono 
disposti sul disco e di come vengono 
uniti a (ormare i file: ProDos e 
Basic.System (il programma che fa inte¬ 
ragire ProDos e Applesoft) se ne occu¬ 
pano per voi. 

Vi sono però dei momenti in cui diven¬ 
ta utile, se non indispensabile, poter leg¬ 
gere e scrivere i blocchi del disco: per¬ 
ché parte del disco è stata distrutta e 
volete recuperare almeno parte dei dati 
che conteneva: oppure perché qualche 
programma di sistema ha combinato 
un pasticcio con il vostro disco rovinan¬ 
done il catalogo: o ancora per studiare 
un programma nella sua forma sul di¬ 
sco, prima che possa proteggersi una 
volta caricato in memoria. A questo 
scopo è stato creato l'editor di blocchi. 
Editor di blocchi, come tutti i program¬ 
mi di Pro.dotto, è stato ottimizzato nella 
lunghezza: occupa solo 2 Kbyte della 
memoria. Tuttavia, potrebbe darsi che 
voi dobbiate conservare una determi¬ 
nata zona di memoria per studiarla (co¬ 
me vedremo l'editor di blocchi permette 
di esaminare e modificare anche la me¬ 
moria di Apple II oltre che i dischi). Per 
questo motivo abbiamo predisposto tre 
differenti versioni di editor di blocchi, 
chiamate: 

• Edit. System; 

• Edit. 9200; 

• Edit. 800. 

Per motivi di spazio, pubblichiamo ad 
accompagnamento di questo articolo il 
listato del solo Edit.9200; potete trovare 
gli altri due programmi nel dischetto 
Pro.dotto che potete ordinare alla reda¬ 
zione (vedere Servizio software). I tre 
programmi sono quasi identici; discute¬ 
remo in seguito delle loro differenze, 
mentre ora ne spieghiamo gli aspetti 
comuni. 


Normalmente dovreste usare Edit.9200 
per lavorare, e riservare le altre due ver¬ 
sioni per scopi speciali. Per le prime 
prove, usate un disco protetto in scrittu¬ 
ra o un disco sacrificabile, in modo che 
eventuali errori non portino guasti irre¬ 
parabili. Riservate le operazioni com¬ 
plesse a quando vi sarete familiarizzati 
con il programma. 

Se per caso sull'Apple II non è presente 
la scheda 80 colonne, indispensabile 
all'editor di blocchi, questo presenta la 
scritta "Manca la 80 col.!" e non può 
essere usato. Sia una scheda 80 colon¬ 
ne normale sia la versione con espan¬ 
sione di memoria sono adatte all'uso. 
Apple Ile possiede una scheda 80 co¬ 
lonne incorporata: per le versioni prece¬ 
denti di Apple II è necessario acquistar¬ 
la separatamente dal vostro rivenditore 
Apple. 

Una volta caricato in memoria e lan¬ 
ciato, editor di blocchi presenta alcune 
righe di presentazione e vi chiede di 
premere un tasto per cominciare il lavo¬ 
ro. Quando avrete premuto un qualsiasi 
tasto, verrà attivata la scheda 80 colon¬ 
ne e vedrete una videata di numeri, se¬ 
parati in quadranti per renderla più leg¬ 
gibile, sormontata da alcune righe di 
spiegazione. Noterete che il display 
comprende esattamente 512 byte, un 
blocco appunto, numerati da 000 a 1FF 
in esadecimale, e divisi in righe di 32 
($ 20 ). 

I comandi di editor di blocchi 

Tutti i comandi sono costituiti da una 
sola lettera, che viene accettata solo se 
premuta maiuscola (sugli Apple Ile e 
Apple Ile varrà la pena di mantenere 
abbassato il tasto maiuscole Caps- 


Lock durante l'uso dell'editor). Nel caso 
premiate un tasto che non corrisponde 
ad alcun comando, verrà emesso un 
“buzz" e apparirà nello spazio messag¬ 
gi (in alto a destra sulla seconda riga) il 
messaggio “Opzione errata”. Potete 
provare battendo la sbarra spaziatrice: 
non accadrà nulla di male. 

A (Ascii): il comando A modifica il di¬ 
splay per mostrare i codici Ascii dei byte 
anziché i loro valori numerici. Usato u- 
na seconda volta commuta nuovamen¬ 
te ai valori numerici e così via. 

B (blocco ):con il comando B è possibile 
scegliere il numero logico di un blocco 
del disco da leggere o scrivere. Il nume¬ 
ro dev'essere composto di tre cifre, o- 
gnuna da 0 a F: editor di blocchi vi 
permette infatti di operare su dischi sino 
a 2 Mbyte di memoria, e dunque potete 
usarlo sia per il Disk II, che per il nuovo 
Umdisk da 800 Kbyte, che per il ProFile. 
Ricordate nell’uso normale che un di¬ 
schetto standard da 5,25" contiene solo 
280 blocchi (in esadecimale numerati 
da 000 a 117), e ogni tentativo di leggere 
blocchi oltre questo numero produrrà 
un “Errore di I/O", mentre il tentativo di 
scrivere vi darà l'errore “Protetto in 
scrittura". 

Il disco Ram (vedi sotto l'opzione S) ha 
120 blocchi numerati in esadecimale da 
000 a 077. 

L'uso del comando B non provoca né 
la lettura né la scrittura del blocco in 
questione, ma preseleziona solamente 
quel blocco particolare. Il valore cui è 
fissato inizialmente il numero di blocco 
è 000. 

D (disassemblaggio): con D otterrete il 
disassemblato dei byte nel blocco; se 
conoscete il linguaggio macchina sa¬ 
pete quanto questa possibilità sia frut¬ 
tuosa per esaminare i programmi. Il di- 








sassemblato viene visualizzato a gruppi 
di 20 istruzioni per volta; tra i gruppi il 
computer presenta il cursore e attende 
la pressione di un tasto. 

Verranno disassemblati i 512 byte del 
blocco: tuttavia, se premete Control-C 
durante una delle pause, l'operazione 
viene interrotta e tornerete al display 
normale. Se per qualche motivo avrete 
bisogno di bloccare lo scorrere del di- 
sassemblato oltre agli stop (issati ogni 
20 righe, potete ottenerlo premendo 
Control-S. Ogni tasto, poi, farà ripren¬ 
dere le operazioni 

E (editare la memoria): con E potete 
modificare uno o più dei byte nel bloc¬ 
co. Vi verrà dapprima chiesto il numero 
del byte da modificare (da 000 a 1FF: se 
scegliete un numero al di fuori di questo 


raggio l'editor di blocchi risponde con 
un messaggio d'errore). L'editor rispon¬ 
derà mostrando il messaggio “da ? a", 
dove ? è il valore attuale del byte, e- 
spresso in esadecimale o in codice A- 
scii, a seconda della scelta attuale, 
compiuto con l'opzione A. Poi verrà pre¬ 
sentato il cursore per l'introduzione del 
nuovo valore. Dopo aver battuto il valo¬ 
re modificato cui volete porre il byte po¬ 
tete scegliere fra tre possibilità. 

Se batterete Return il valore introdotto 
verrà sostituito al valore che si trovava 
in memoria, e terminerà l'opzione Edita¬ 
re. 

Se batterete Sbarra il cambiamento 
verrà effettuato e vi verrà chiesto auto¬ 
maticamente un nuovo valore per il byte 
seguente: questa operazione è utile per 


modificare più valori consecutivi, ma¬ 
gari per cambiare un messaggio. 

Se batterete Esc la modifica non verrà 
effettuata, e l'opzione Editare verrà ter¬ 
minata. 

La modifica avviene comunque solo in 
memoria: per apportarla anche al bloc¬ 
co sul dischetto occorre scrivere il bloc¬ 
co modificato con " A W“. 

F (floppy), l’opzione F seleziona alterna¬ 
tivamente il drive uno o due rispetto allo 
slot selezionato. Sull'Apple Ile il drive 
uno è il drive interno, il drive due è quello 
esterno, se esiste. Tentare di operare 
con un drive che non esiste produce 
l'errore “Non è un drive". 

H (high bit): i messaggi alfanumerici 
vengono custoditi in memoria secondo 
una corrispondenza con i numeri interi 
chiamata codice Ascii. Il codice asse¬ 
gna una corrispondenza biunivoca tra 
ciascun numero e una lettera, numero o 
simbolo; ciascun byte in memoria tipi¬ 
camente custodisce l'equivalente Ascii 
di un carattere. Ma i caratteri Ascii sono 
128, mentre un byte può valere da 0 a 
255. Accade così che i valori da 128 a 
255 ripetono i medesimi caratteri dei va¬ 
lori 0 - 127. Quando volete alterare un 
messaggio, una scritta, una stringa di 
caratteri è necessario scegliere tra una 
delle due possibilità: usare i valori 0- 
127 (bit alto non settato, cioè = 0) o 
usare i valori 128-255 (bit alto settato, 
cioè = 1). Una scelta sbagliata può 
portare a una visualizzazione abnorme, 
tipicamente in inverse o.flash anziché in 
caratteri normali. Con l’opzione H si se¬ 
leziona il bit alto a zero o a uno. Potete 
scegliere osservando il codice dei ca¬ 
ratteri che dovete sostituire: se i valori 
sono superiori a 80 - esadecimale - allo¬ 
ra dovreste assicurarvi di avere il bit alto 
posto a uno. L'uso dell'opzione H visua¬ 
lizza un messaggio che chiarisce a che 
valore viene posto il bit alto nello spazio 
messaggi. Per motivi di spazio, l'opzio¬ 
ne H è disponibile solo in Edit.9200. 

M (memoria): con l'opzione M si selezio¬ 
na una zona di memoria differente da 
quella standard come buffer per le ope¬ 
razioni e per lavoro. Va indicato un nu¬ 
mero di pagina da 00 a FE. che sia pari. 
Attenzione: non bisognerebbe mai usa¬ 
re come buffer le pagine da 00 a 07 e da 
92 in su, utilizzate dal sistema. ProDos 
impedirebbe comunque di leggervi 
qualunque blocco, ma l'uso dissennato 
dell'opzione E per modificare alcuni va- 


Llstato 1 - Il modulo Loader che riloca l'editor di blocchi. 


SOURCE FILE »OI » >LOAOER 
OOOOl 1 t 

OOOOi 2 » EdIt.9200 Loader 


OOOOl 

2000t 2000 

3 • 

4 

ORG 

•2000 


2000* 

3 

LST 

ON.GEN.NOV. 

NOA 

2000» BEOC 

6 PRINTERR 

EQU 

•BEOC 


2000i BEOO 

7 WARMSTRT 

EOLI 

• BEOO 


2000» BEO3 

8 DOSCMD 

EQU 

•BE03 


2000i 0200 

9 SYSBUF 

EQU 

•0200 


2000» 

2000»A2 00 

10 | 

11 

LDX 

•00 


2002»BD 44 20 

12 CLOSE 

LDA 

DOS, X 

IChi«de a BSYS un CLOSE 

2003»9D OO 02 

13 

STA 

SYSBUF.X 

1 par evi tara probi ami 

200B»E8 

14 

INX 


1 con HIMEM 

2009»EO 06 

13 

CPX 

•6 

200BiDO F3 2002 

16 

BNE 

CLOSE 


2000*20 03 BE 

17 

JSR 

DOSCMD 


2010»C9 OO 

18 

CflP 

•0 

lIT acc OO than arror 

2012» FO 06 201A 

19 

BEO 

INIT 

2014»20 OC BE 

20 

JSR 

PRINTERR 


2017»4C OO BE 

21 

JNP 

WARMSTRT 

*E*ca senza sistemarsi 

201AiA9 OO 

22 INIT 

LDA 

•00 

201C»83 FE 

23 

STA 

•FE 


201E t A9 92 

24 

LDA 

• •92 


2020*83 FF 

23 

STA 

•FF 

ITO 

2022*A9 21 

26 

LDA 

• •21 

2024*83 FD 

27 

STA 

•FD 


2026*A9 OO 

28 

LDA 

••OO 

iFROM 

2028»83 FC 

29 

STA 

•FC 

202A* A9 

202B*B1 FC 

30 

31 COPYSELF 

TAY 

LDA 

(•FC),Y 


2020*91 FE * 

32 

STA 

(•FE),Y 


202F1E6 FC 

33 

INC 

•FC 


203li DO 02 2033 

34 

BNE 

CI 


2033»E6 FD 

33 

INC 

•FD 


2033»E6 FE 

36 CI 

INC 

• FE 


2037»DO 02 203B 

37 

BNE 

C2 


2039*E6 FF 

38 

INC 

♦FF 


203B* A3 FF 

39 C2 

LDA 

•FF 


203D*C9 9A 

40 

CMP 

• •9A 


20ZFiD0 EA 202B 

41 

BNE 

COPYSELF 

«Sa copiato tutto, asci 

2041 » 4C 00 92 

42 

JMP 

•9200 

«Val ! 

2044* 

43 

MSB 

ON 

2044»C3 CC CF D3 

44 DOS 

ASC 

"CLOSE“ 


2048»CS 

2049*80 

43 

DFB 

•8D 


«t SUCCESSFUL ASSEMBLY *« NO ERRORS 
•* ASSEMBLER CREATED ON 13-JAN-84 21*28 
•t TOTAL LINES AB6EMBLED 43 

•• FREE SPACE PAGE COUNT 84 
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Pro.dotto 



lori potrebbe causare guasti imprevedi¬ 
bili nel ProDos stesso, é possibile sele¬ 
zionare quelle pagine per renderne 
possibile la lettura, ma non andrebbero 
mai modificate. Il tentativo di seleziona¬ 
re la pagina CO produce il messaggio 
"Buffer Illegale". La pagina CO, infatti, 
non è una normale pagina di memoria e 
pertanto non può venire né letta nè 
scritta dissennatamente. 

R (read): con R viene letto dal disco, 
nella pagina di memoria selezionata, il 
blocco selezionato. 

S (slot): serve a selezionare lo slot del 
disco su cui lavorare: poiché il disco 
può solo trovarsi in uno slot compreso 
tra l’uno e il sette: vengono accettati 
solo quei valori, e un numero differente 
provoca il messaggio d'errore “Indicare 
1,2...7". 

Tentare di operare con un drive che 
non esiste produce l’errore “Non è un 
drive". Il disco Ram degli Apple con 128 
Kbyte è indicato come slot tre drive due. 


Selezionando quei valori con le opzioni 
S e F, siete in grado di esaminare anche 
la memoria aggiuntiva del vostro Apple 
(per la memoria ordinaria, i 64 Kbyte 
principali, usate l'opzione M). 
Control-W (wrHe):con questo comando 
il buffer (i 512 byte attualmente visualiz¬ 
zati) viene copiato sul disco nel blocco 
indicato nella seconda riga. É necessa¬ 
rio premere anche il tasto Control, oltre 
al tasto W: in questo modo si rende 
impossibile scrivere per errore un bloc¬ 
co sul disco. Scrivere dissennatamente 
sul disco è un’operazione pericolosa 
che rende quasi certamente il disco in¬ 
servibile, illeggibile per ProDos e dun¬ 
que perdendo i dati contenuti. Modifi¬ 
cate solo dei back-up dei vostri dischi, e 
accertatevi sempre di sapere quel che 
state facendo. 

X (exit): questo comando è disponibile 
solo in Edit.System, e viene utilizzato per 
uscire dall'editor di blocchi e caricare 
Basic.System. 


Edit.System è un programma di sistema, 
e dunque può venire usato anche senza 
Basic.System (nulla impedisce di usarli 
entrambi). Questa possibilità si rivela u- 
lilissima quando occorre studiare un 
programma in memoria prima del cari¬ 
camento di ProDos: il lancio di 
Basic.System cancellerebbe buona 
parte della memoria, mentre usando un 
disco che non lo contiene, ma che di¬ 
spone di Edit.System, permette di man¬ 
tenere il più possibile immutata la me¬ 
moria di Apple II. 

Notate che Edit. 9200 ed Edit. 800 non 
sono programmi di sistema, ma sempli¬ 
ci programmi binari (tipo Bin) che pos¬ 
sono venire usati e caricati in memoria 
solo con Basic.System. 

Normalmente, un programma di siste¬ 
ma (i programmi con il nome che termi¬ 
na in .System e indicati nel catalogo del 
disco come tipo Sys) dovrebbe poter 
terminare dando il controllo a un altro 
qualsiasi programma di sistema. Tutta- 
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via la routine usata dall'Apple Compu¬ 
ter per realizzare questa possibilità oc¬ 
cupa da sola circa 5 Kbyte: abbiamo 
scelto un'uscita più limitata, ma più 
snella. 

Con X Edit.System cerca di caricare e 
lanciare Basic.System dal disco nel dri¬ 
ve uno dello slot sei. Sono possibili gli 
errori "Manca Basic.Sys” ed "Errore di 
I/O". Se per qualche strano motivo 
Basic.System fosse presente sul disco, 
ma in forma danneggiata, è possibile 
che editor di blocchi venga distrutto, ma 
Basic.System non sia caricato: in que¬ 
sto caso verrà mostrato il messaggio 
"Errore irrecuperabile" e il computer si 
fermerà in Monitor. Quando ciò acca¬ 
desse dovrete rilanciare interamente il 
sistema con Control Mela-vuota Reset o 
spegnendo e riaccendendo. 

Esc (uscita dal programma): con Esc si 
esce dal programma editor di blocchi 
per Basic. 

Differenza: da Edit.800 Esc termina irre¬ 


vocabilmente il programma. Da E- 
dit.9200 Esc esce in Basic, ma editor di 
blocchi resta in memoria, sempre dispo¬ 
nibile (questo ruba 2 Kbyte ai vostri pro¬ 
grammi Basic: se volete eliminare dalla 
memoria l'editor potete farlo usando il 
programma FP di Pro dotto pubblicato 
nello scorso numero, oppure rilancian¬ 
do Basic.System col comando 
Basic.System). Potete rientrare nell'edi- 
tor di blocchi con il comando & (amper- 
sand). Battendo & < Return > vi lasce- 
rà nuovamente in Edit. 9200. 

Da Edit.System Esc funziona esatta¬ 
mente come con Edit.800: ma se Basic¬ 
.System non è presente in memoria, poi¬ 
ché ProDos ha caricato direttamente 
l'editor, otterrete il messaggio d'errore 
“Manca Basic.Sys" e dovrete usare il 
comando X. 

Mela vuota?: questo comando, come 
probabilmente saprete, dovrebbe for¬ 
nirvi un aiuto visualizzando un messag¬ 
gio che chiarisca il funzionamento del 


programma. Tuttavia, per mantenere 
molto ridotte le dimensioni del program¬ 
ma, non è stato possibile implementare 
esaurienti messaggi di spiegazione, che 
occupano sempre molta memoria. Pre¬ 
mendo Mela vuota e “?" dunque viene 
semplicemente visualizzato il messag¬ 
gio “Consulta il manuale". 

«- e -♦ (freccia a sinistra e a destra): le 
due frecce rispettivamente decrementa- 
no e incrementano di uno il numero di 
blocco selezionato, ma non leggono né 
scrivono il blocco dal disco. Lo scopo è 
una efficiente selezione del blocco pre¬ 
scelto. 

tei (freccia in aito e in basso): hanno 
lo stesso effetto di freccia a sinistra e a 
destra, ma, contemporaneamente a in¬ 
crementare e decrementare il numero 
del blocco selezionato, leggono il bloc¬ 
co stesso in memoria. In questo modo è 
molto semplice scorrere i contenuti di 
un intero dischetto sul video (mante¬ 
nendo premuto il tasto freccia in alto). 
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Pro.dotto 



Su un vecchio modello di Apple II che 
non disponga dei tasti freccia in alto e 
in basso è possibile ottenere le medesi¬ 
me funzioni premendo Control-J (per la 
freccia in basso) e Control-K (per la 
freccia in alto). 


Battere il listato 

Se disponete dell'assemblatore, batte¬ 
te e assemblate separatamente i listati 1 
(Loader) e 2 (l'Editor). Da Basic poi bat¬ 
tete Bload Loader.O Bload Editor- 
,0,A$2100 Bsave Edit.9200, 
A$2000,L2304. 

Se non avete l'assemblatore, battete i 
codici del listato 1, e poi i codici del 
listato 2, ma a partire dalla locazione 
$2100 e non $9200 come indicato. Sal¬ 
vatelo col Bsave succitato, 
lì mo.tivo ’è semplice: il programma è 
scritto per girare in alta memoria, ma 
normalmente quelle locazioni sono ri¬ 
servate a Basic.System, che va "sposta¬ 


to" - ecco lo scopo del Loader - da li. Il 
programma viene dunque caricato nel¬ 
la memoria in $2000 e poi il Loader lo 
sposta nel punto di residenza quando 
Basic è stato convinto che quella zona è 
tabù. 


Altre osservazioni 

Editor di blocchi è in grado di leggere 
anche dischi Pascal e Dos 3.3. Per i 
primi non si presenta alcun problema, 
poiché sono apch'essi suddivisi inter¬ 
namente in blocchi secondo le medesi¬ 
me regole di ProDos. 

I dischi Dos 3.3 sono utilizzati secondo 
una divisione in settori da 256 byte, o- 
gnuno dunque la metà di un blocco 
ProDos. 

Per tradurre il numero di blocco usato 
da editor di blocchi nel corrispondente 
numero di settore e traccia dividete il 
numero di blocco per otto, e otterrete il 
numero di traccia; dal resto della divi¬ 


sione otterrete il settore consultando la 
seguente tabella: 


Blocco 

La 1“ metà equivale 
a settore 

La 2* metà equivale 
a settore 

0 

0 

E 

1 

c 

D 

2 

A 

B 

3 

8 

9 

4 

6 

7 

5 

4 

5 

6 

2 

3 

7 

1 

F 


Editor di blocchi non è in grado di leg¬ 
gere la maggior parte dei dischi cosid¬ 
detti protetti, con alcune notevoli ecce¬ 
zioni; se acquisirete sufficiente com¬ 
prensione di come lavora il vostro Apple 
II, sarete in grado di rimuovere la prote¬ 
zione dalla stragrande maggioranza 
dei dischi protetti (usando l’editor di 
blocchi come uno degli strumenti ne¬ 
cessari, insieme a un copiatore a nibble 
dotato di editor di traccia). ■ 

(Continua) 

(La precedente puntata è apparsa sul n. 36) 
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Seguito listato editor di blocchi 
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Arrivederci su Bit! 

Sì, Personal Software si trasferisce all'interno di Bit, la prima e più diffusa e tecnicamente 
all’avanguardia rivista di personal computer e accessori, mensile anch'esso edito dal 
Gruppo Editoriale Jackson. 

Quindi, dal prossimo mese, cercate in edicola Bit , famosa per dinamicità e, soprattutto, 
capacità professionale di trattare ogni aspetto dell'informatica a noi più prossima, quella dei 
pc. 

Sarete così meglio aggiornati sul panorama dei personal computer, pur avendovi riservato 
uno spazio tutto dedicato ai programmi. Su Bit avrete la possibilità di un aggiornamento 
globale più completo, potrete essere coinvolti in avventure come la telematica e le comuni¬ 
cazioni via modem, potrete imparare come scrivere i vostri programmi e quali pacchetti 
sono già pronti. 

Sarete tempestivamente avvertiti di importanti avvenimenti che riguardino software e 
hardware, come il prossimo Cali for Game a cui siete tutti invitati a partecipare. 

Ed è a tutti coloro i quali ci hanno seguiti fino a questo momento che non diciamo addio, ma 
un vero arrivederci al prossimo mese tutti con Bit. Lo troverete anch'esso in edicola o vi 
verrà spedito in abbonamento. 


16 







COMMODORE 16 


Grafica 
a tre dimensioni 

Un’introduzione al Cad 

di Valerio Anselmo 

Figura 1 - 
Esempio 
di tracciamento 
di figura ruotata 
di 60°. 



C ome si sa, la sigla Cad indica 
“Computer aided design”, 
cioè disegno con l’ausilio del¬ 
l'elaboratore. Il sofisticato 
gruppo di istruzioni grafiche del C 16 
permette di emulare, naturalmente in 
ambito limitato, ciò che è possibile otte¬ 
nere in questo campo con computer 
dedicati, dotati di velocità, capacità 
grafiche e di memoria decisamente su¬ 
periori. 

Non si pretende di fare l’impossibile 
con il C 16. Si sono rese necessarie 
scelte limitative perché programma e 
dati rientrassero nei 2 Kbyte (o poco 
più) disponibili in modo grafico. Per e- 
sempio, si è dovuto rinunciare a una 
grafica multicolore, sia perché le lettere 
del testo sarebbero diventate presso¬ 
ché illeggibili, sia perché le richieste re¬ 
lative ai colori avrebbero tolto troppo 
spazio ai dati. Si è dovuto rinunciare ad 
avere più di una ventina di dati (seg¬ 
menti, ellissi) per non togliere troppo 
spazio al programma. Insomma, ciò che 
vedete pubblicato è piuttosto un com¬ 
promesso fra quanto si sarebbe potuto 
fare e quanto la memoria a disposizione 
permetteva in realtà di fare. Il risultato 
comunque è interessante e utile, so¬ 
prattutto come introduzione al proble¬ 
ma della rappresentazione di oggetti 
nello spazio e alla possibilità di vederli 
da angolazioni diverse dopo la memo : 
rizzazione dei dati. 

La rappresentazione di un oggetto 
nello spazio si può ottenere fondamen¬ 
talmente in due modi, entrambi basati 
sulla proiezione dell’oggetto stesso su 
un piano. Il primo metodo è impropria¬ 
mente chiamato di rappresentazione 
"tridimensionale", in quanto l’oggetto, 
anche se si può presentare sotto ango¬ 
lazioni e prospettive diverse, è in realtà 
riprodotto su un piano e visto con visio¬ 
ne non stereoscopica. È il tipo di rap¬ 
presentazione ottenibile con questo 
programma. L’altro tipo di rappresenta¬ 
zione fornisce una visione realmente 
stereoscopica, ma richiede l'uso di oc¬ 
chiali speciali (di solito con lenti polariz¬ 
zanti) e di schermi polarizzanti. L’imma¬ 
gine sarà in realtà formata da due im¬ 
magini, una per l’occhio destro e una 
per l’occhio sinistro. Si stanno facendo 
ora anche esperimenti di visione stereo¬ 
scopica a parallasse verticale, che non 
richiede l'uso degli occhiali di cui sopra, 
ma siamo ancora allo stadio di studio. 


Quindi quella che di solito viene pre¬ 
sentata come una rappresentazione tri¬ 
dimensionale degli oggetti in realtà non 
è altro che la rappresentazione bidi¬ 
mensionale di un oggetto, con la possi¬ 
bilità però di variare il punto di vista 
visualizzando una proiezione “spazia¬ 


le" dell’oggetto memorizzato. Esempi a 
tutti noti sono quelli del disegno mecca¬ 
nico, dove un motore o un pezzo da far 
preparare da un "machining center" 
viene disegnato in modo tale che possa 
essere ruotato, ingrandito o evidenziato 
in una delle sue parti sullo schermo, 



1-TRAC 2«- 
ROT X 85 
ROT Z 85 
SCALA 9 


Figura 2 - 
Esempio 
di tracciamento 
di figura ruotata 
di 85°. 
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così da accertarne l'esattezza prima 
dell'esecuzione vera e propria del pro¬ 
totipo. È in via di soluzione definita il 
passaggio poi dal Cad al Cam, cioè dal 
disegno così tracciato all’esecuzione 
del pezzo mediante macchine fresatrici 
automatiche, anch’esse guidate da 
computer. 

Nell'ambito della progettazione edili¬ 
zia, per esempio, anziché utilizzare dei 
modellini plastici è possibile lasciare 
all'elaboratore il compito di rappresen¬ 
tare sullo schermo, a colori e con note¬ 
vole realismo, il risultato finale del pro¬ 
getto stesso. Avendo inoltre la possibili¬ 
tà di variarne a piacimento dimensioni, 
colori e altre caratteristiche. 

L’argomento è molto vasto, ma non 
sarà approfondito in questa sede. Un 
cenno è stato necessario perché il pro¬ 
gramma presentato può già far immagi¬ 
nare quanto, anche solo con più memo¬ 
ria, si potrebbe fare con una piccola 
macchina come il C 16. 

Uso del programma 

Il programma è interamente scritto in 
Basic, senza alcun ricorso a istruzioni 
speciali, come Peek e Poke che richie¬ 
dono conoscenze della mappa della 
memoria, che esulano dal Basic vero e 
proprio. Il programma è poi piuttosto 
breve (per forza di cose), tanto da poter 
essere immesso in macchina in poco 
tempo. Dopo aver battuto il testo del 
listato e averlo registrato su nastro, pre¬ 
mete contemporaneamente i tasti 
[Shift] e [F 3] per far avviare il computer. 
Si presenta una prima videata con il 
menu principale. Come si noterà, il testo 
è ridotto all'osso, sempre per poter 
strappare qualche byte al programma e 
lasciarlo ai dati. Sulla sinistra c'è un 
riquadro di 200 punti in altezza e in 
larghezza. È l’area in cui verranno pre¬ 
sentati i grafici. Il punto posto al centro 
di questo quadrato è il punto di coordi¬ 
nate X = 0, Y = 0. L'asse Z all'inizio è in 
posizione perpendicolare allo schermo. 

Il semiasse X positivo va dal centro del 
riquadro verso destra, quello delle Y va 
dal centro del riquadro verso l'alto. La 
distanza utile dal centro del riquadro 
verso i lati è di 99 punti, cifra da tener 
presente per poter rappresentare un so¬ 
lido in modo opportuno. Il programma 
contiene comunque un comando Scala 
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per l'ingrandimento o il rimpicciolimen- 
to deH'immagine, per ovviare a problemi 
legati alle dimensioni improprie dell'ori¬ 
ginale. 

I sei comandi che si possono scegliere 
dal menu principale sono: 

1) Dati: permette l’introduzione delle 
coordinate dei segmenti di retta o delle 
ellissi (o circonferenze); 

2) Trac: permette il tracciamento del di¬ 
segno con la scelta del punto di vista 
(rotazione sull'asse X e/o sull’asse Z) e 
delle dimensioni; 

3) Cane: cancella lo schermo riportan¬ 
dolo alle condizioni iniziali; 

4) Arch: archivia su nastro i dati del 
disegno; 

5) Legg: legge dal nastro i dati archiviati 
in precedenza; 

6) Esci: permette di uscire dal program¬ 
ma. 

I vari comandi, tranne la cancellazione 
dello schermo, chiedono una conferma, 
dando la possibilità di tornare al menu 
senza eseguire l’istruzione che si era 
richiamata. Ciò è utile in caso di errore 
involontario. 

In dettaglio i vari comandi 

1) Dati 

II primo messaggio che compare quan¬ 
do si preme il tasto [1] è 1 -Dati 2*-. Ciò 
significa che, se abbiamo premuto il ta¬ 
sto per errore e vogliamo tornare al me¬ 
nu, dovremo premere [2]. Se premiamo 
[1] appare la parola Linea, che richiede 
il numero progressivo della linea (seg¬ 
mento, cerchio o ellisse) da tracciare. 
Se si preme il tasto [Return] senza bat¬ 
tere alcun numero, il valore sarà consi¬ 
derato come uguale a zero e si tornerà 
alla richiesta iniziale. Ripremendo [Re¬ 
turn] si tornerà al menu. Se invece si 
immette un numero di riga, si presente¬ 
rà la richiesta relativa alle coordinate 
del primo punto (XI, Y1, ZI), seguita 
dalla richiesta delle coordinate del se¬ 
condo punto (X2, Y2, Z2). 

L’ultima richiesta (0123) permette di 
disegnare un segmento di retta (immet¬ 
tendo zero o premendo semplicemente 
[Return]) o un cerchio (sul piano XY 
immettendo uno, sul piano XZ immet¬ 
tendo due, sul piano YZ immettendo 
tre). 

Consideriamo per prima cosa il caso 
più semplice, quello del tracciamento di 
un segmento. Vogliamo immettere i dati 


per il tracciamento di un cubo. Le coor¬ 
dinate che dobbiamo immettere sono 
quelle dei vari segmenti che costituisco¬ 
no il solido in questione, in pratica le 
coordinate dei vertici del cubo. Da 
quanto detto in precedenza, scegliere¬ 
mo di rappresentare il cubo centrato 
sullo schermo (per una rotazione più 
regolare) e terremo i valori tra -50 e + 50 
sui tre assi (X, Y e Z). Potremo così fare 
esperimenti sia di rotazione degli assi 
che di rappresentazione in scala (in¬ 
grandimento o rimpicciolimento) del¬ 
l'oggetto. Il programma permette di 
tracciare fino a 21 linee. Questo è un 
limite che purtroppo si fa sentire in mo¬ 
do pesante. 

Per rappresentare un cubo, comun¬ 
que bastano 12 segmenti, con le se¬ 
guenti coordinate: 



Quando si immettono i dati, si può cor¬ 
reggere cancellando con il tasto Del e 
ribattendo. Il cursore invece non si ve¬ 
drà perché siamo in modo grafico. Per 
immettere il numero premere, come al 
solito, il tasto [Return], Anche qui, la 
pressione di [Return] senza che si sia 
battuto alcun numero, significa l'immis¬ 
sione di uno zero in quella posizione. 
All’ultima domanda (0123) basterà bat¬ 
tere [Return] per indicare che si vuole 
un segmento e non un cerchio (oppure 
immettere uno zero). 

Dopo aver immesso i dati di una linea, 
il programma ritorna al menu. Da que¬ 
sto, si deve ancora premere il tasto [1] 
per tornare all'immissione dei dati, fino 
a che non sia stato fatto per tutti i dati. 
Se per caso ci si accorge di aver immes¬ 
so dei dati errati, niente paura: basta 
reinserire i dati giusti per quella linea e 
tutto andrà a posto. 

2) Trac e 3) Cane 

Una volta immessi tutti i dati, possiamo 
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vedere il nostro cubo. Premiamo, dal 
menu, il tasto [2] (Trac) e poi il tasto [1]. 
Premendo poi semplicemente il tasto 
(Return) alle varie richieste che si pre¬ 
sentano (Rot X. Rot Z, Scala), otterremo 
la rappresentazione dell'oggetto visto 
dall'alto. Visto così il cubo naturalmente 
ci appare come un quadrato. 

Ripuliamo lo schermo premendo II ta¬ 
sto [3] (Cane) e poi ripremiamo il tasto 
(2) (Trac). Questa volta proveremo a 
vedere il cubo sotto un altro profilo. Fa¬ 
remo prima ruotare l'asse X di 60 gradi 
(il cubo ruoterà in modo che la faccia 
superiore si allontani da noi verso l'e¬ 
sterno), poi l'asse Z (che ora si troverà 
quasi in posizione verticale) di 30 gradi. 
La figura del cubo che si presenta ai 
nostri occhi è ora molto più realistica. 
La prospettiva è ortogonale. Ripuliamo 
ancora una volta lo schermo e faccia¬ 
mo ridiseganre il nostro cubo da un 
altro punto di vista. Facciamolo ruotare 
di —15 gradi sia sull’asse X che sull'asse 
Z, e diamogli un rapporto di scala di -3. 
Il cubo che si presenta ora sullo scher¬ 


mo è stato ruotato leggermente verso di 
noi e sulla sinistra, ed è stato ridotto. 
Facciamo altri esperimenti con la rap¬ 
presentazione del cubo, aumentando¬ 
ne le dimensioni e variando la rotazione 
degli assi. Gli assi possono essere ruo¬ 
tati sia in senso positivo che in senso 
negativo, e le rotazioni sono in gradi. 
Per quanto riguarda le dimensioni, si 
consiglia di non esagerare troppo: i va¬ 
lori suggeriti per la scala vanno da -9 a 
+ 9. Nel caso di questo solido, quando 
si chiede l'ingrandimento 9 il disegno 
sconfina fuori dal quadrato, ma le linee 
fuori campo vengono poi cancellate al¬ 
la presentazione del menu. Una limita¬ 
zione del tracciamento entro i confini 
dell'area a disposizione avrebbe allun¬ 
gato irrimediabilmente il programma to¬ 
gliendo ancor più spazio ai dati. 

Avrete notato che i dati immessi sono 
tutti numeri interi. Anche questa è un'al¬ 
tra delle limitazioni imposte dalla poca 
memoria a disposizione. Se si immetto¬ 
no numeri frazionari, questi saranno ar¬ 
rotondati all'intero più vicino. 


4) Arch 

Se si vuole, si può ora archiviare il dise¬ 
gno su nastro. Mettere nel registratore 
un nastro per i dati, riavvolgerlo e, men¬ 
tre sullo schermo c'è il menu, premere il 
tasto (4). Premere poi ancora (1) e, 
quando compare la parola Record, pre¬ 
mere il tasto Record sul registratore. I 
dati del disegno vengono memorizzati 
su nastro. Quando l'archiviazione del 
disegno è completata, ricompare sullo 
schermo il menu iniziale. 

5) Legg e 6) Esci 

Per prova, riavvolgiamo il nastro e ve¬ 
diamo se i dati sono stati registrati come 
si deve. Dal menu iniziale premere il ta 
sto (6) (Esci) e poi [1] (Fine). Riavviare 
poi il programma con [Shift] [F 3] e, alla 
comparsa del menu, premere il tasto [2] 
(Trac) e far tracciare il disegno per ac¬ 
certarci che in memoria non ci siano più 
dati. In mezzo al riquadro del disegno 
comparirà un puntino. Quando ricom¬ 
pare il menu, premere il tasto [5] (Legg) 
e poi ancora ( 1 ). Alla scritta Play preme- 


Llstato 1 - Il programma Grafica a Ire dimensioni. 


0 M=20 : DI MEV. < M, & ) 

1 ORARMICl,1 : BOX,0,0,179,199 

2 0OSUB30» REST0RE3»FORJ-0TOS:READKt:CHAR 
,26,J*2,K*:NEXTJ 

3 DATAI-DAT1,2-TRAC,3-CANC,4-ARCH,5-LEGG 
,6-ESCI 

4 GETKEYK* : IFK*<"1 M aRK*>"6"THEN4 

5 GGSUB30:ONVAL(K*>GOTO7, 17, 1,31,34,6 

6 CHAR, 26, 0, "1-FINE 2«-“ : GETKEYK*: IFK*< >" 
1"THEN2 

7 CHAR,26,0, "1 -DATI 2«-" : GETKEYK*: IFK*< >" 
1"THEN2 

8 T*="LINEA":R=2:GOSUBl1 :I=Q~1: IFI<0ORI> 
MTHEN7:ELSEIFX<ITHENX=I 

9 RESTORE10:FOR J =0TO6 : READT*:R=J*2+4 :GQS 
UBI 1 : E7. (I, J ) =0:NEXTJ : GGT02 

10 DATAXI,Y1,Z1,X2,Y2,Z2,0123 

11 R*="":CHAR,26,R,T*:S=LEN< T*) 

12 GETKEYK*:IFK*=CHR*(13)THENQ=VAL<R*) :R 
ETURN 

13 W=LEN<R*):IFK*<>CHR*(20)THEN15 

14 IFR*<>""THENR*=LEFT*CR*,W-1):K* = " ":G 
0T016:ELSE12 

15 I FS+W< 13THENR*=R* «-K* : W=W+1 : ELSE 12 

16 CHAR,26+S+W,R,K*: GOTO12 

17 CHAR, 26,0, M 1 -TRAC 2*-" : GETKEYK*! IFK*< > 
" 1 "TI-IEN2 

1S RESTORE19:FORJ = 1T03s READT*:R=J *2:GOSU 


B11:F(J-1>=Q:NEXTJ:F(2)=1+F<2)/10 

19 DATAROT X,ROT Z,SCALA 

20 G=if /100: 0=C0S (F < 1 > *G> :P=SIN(F ( 1) #G) : L 
=COS(F(0)*G>:N=SIN(F(0> *G> s FORI=0TOX 

21 H=E7. < 1,0) :K=-E7. (I, 1) : Q=E7. ( I ,2) :R=E’/.(I 
,3) :S=-E7.(I,4> : T=E7.< I ,5) : V=E7.(I,6> 

22 IFV<10RV>3THEN26:ELSEW=R-H:Y=K-S:Z=Q- 
T:MX=R-W:MY=K-Y:MZ=Q--Z 

23 FORJ=12TO360STEP12sU=n*(J+90)/180 

24 IFV=lTHENR=MX+COS(U)*W:S=MY+SIN(U)*Yj 
GOT 026 

25 IFV=2THENR=MX+CQS <U>*W:T=MZ+SIN <U>*Z: 
ELSES=MY+Y+COS(U)*Y:T=MZ+SIN<U)*Z 

26 A=H*0-K*P:B=R*D-S*P:C=K*0+H*P:G=S*0+R 
*Ps C=C*L-Q*Ns G=G*L-T*N 

27 A=A*F<2):C=C*F<2):B=B*F<2>:G=G*F<2) 

28 DRAW, A+99, C+99T0+ < B-A) , + <G-C) : IFVO0T 
HENH=R: K=S: Q==T: NEXTJ 

29 NEXTI:B0T02 

30 FORK=0TO24:CHAR,25, K," 

"sNEXTKsRETURN 

31 CHAR, 26, O, "1-ARCH 2 *-" 5 GETKEYK*: IFK*< > 
"1"THEN2:ELSECHAR,26,2,"RECORD" 

32 OPEN1,1,1,"D":PRINT#1,X:FORI=0TOX:FOR 
J=0TO6:PRINT#1,E7.(I, J) 

33 NEXTJ,IsCLOSEl:G0T02 

34 CHAR, 26, 0, "1-LEGG 2«-" : GETKEYK*: IFK*< > 
"1"THEN2:ELSECHAR,26,2,"PLAY" 

35 OPEN1,1,0, "D": INPUT*» 1 , X : FORI=0TOX : FOR 
J=0TO6: INPUT# 1,E7.<I, J) 

36 G0T033 
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re il tasto Play sul registratore. Il C 16 
comincerà a leggere i dati e, quando li 
avrà letti tutti, ripresenterà il menu ini¬ 
ziale. Ora i dati del disegno sono di 
nuovo in macchina e possono essere 
richiamati con il tasto [2] (Trac). 


Il tracciamento delle curve 

Abbiamo così visto in breve tutti i co¬ 
mandi del menu principale. Resta da 
chiarire solo il tracciamento delle curve 
(cerchi o ellissi). 

Il programma permette di tracciare dei 
cerchi dando due soli punti e stabilendo 
il piano su cui queste curve devono es¬ 
sere tracciate. Il programma si aspetta 
che vengano date per prime le coordi¬ 
nate del punto posto in alto al centro 
(nel caso del cubo visto prima, per e- 
sempio, nel piano XY saranno le coordi¬ 
nate XI =0, Y1 =50 e ZI =50) e poi le 
coordinate del punto posto a 90 gradi in 
senso orario (nell'esempio proposto sa¬ 
ranno le coordinate X2 = 50, Y2 = 0 e 
Z2 = 50). Il numero da immettere alla 
richiesta 0123 sarà 1 se, come nell’e¬ 
sempio proposto, la curva si trova nel 
piano XY, sarà 2 se la curva si trova nel 
piano X2 e sarà 3 se si trova nel piano 
YZ. Se il valore della terza coordinata 
(quella perpendicolare al piano) sarà 
diverso, verrà assunto come valido il 
valore del secondo punto (nel caso pre¬ 
sentato, il valore di Z2). Se i valori non 
sono dati nell'ordine stabilito, potrà es¬ 
sere visualizzato un peduncolo tra la 
posizione iniziale della curva e la posi¬ 
zione iniziale del tracciato vero e pro¬ 
prio e, nella peggiore delle ipotesi, verrà 
solo tracciato un segmento o un qual¬ 
cosa di imprevisto. Le curve perciò van¬ 
no studiate bene prima di immettere i 
dati. Per esempio, per far tracciare una 
figura formata da 6 ellissi e 3 cerchi che 
si intersecano al centro, dovremo intro¬ 
durre i seguenti dati: 



Provate ora a far tracciare la figura, 
lasciando a zero tutti i valori (Rot X, Rot 
Z, Scala). La figura che ne risulta non è 
molto complessa perché è vista dall'al¬ 
to. Ma basta inclinare un po' questo 
oggetto sugli assi e ne verrà fuori tutta 
la complessità. L'esercizio è utile per 
capire esattamente come avviene il 
tracciamento delle ellissi. 

In possesso di questi dati, possiamo 
dedicarci ora all’esecuzione di un dise¬ 
gnino rappresentante in forma molto 
semplificata un'automobile. La limita¬ 
zione del numero di linee a disposizione 
ci costringe a farne poco più di un ab¬ 
bozzo, che comunque darà un'idea del¬ 
la forma dell'oggetto ruotato nello spa¬ 
zio. Le coordinate dei 21 punti sono le 
seguenti: 



Una volta immessi i dati, registriamoli 
su nastro. Passiamo poi alla visualizza¬ 
zione del disegno. Siccome le misure 
sono piuttosto piccole rispetto al nor¬ 
male, potremo ora usare il comando 
Scala per ingrandirne le dimensioni. 
Può andar bene anche un fattore di 9. 
Quando viene fatto tracciare senza 
cambiare i valori predefiniti (rotazione 
di 0 gradi sia per l’asse X che per l'asse 
Z), vedremo l’automobile dall’alto. Per 
vederla in posizione di marcia, cancel¬ 
liamo lo schermo e facciamo tracciare il 
disegno con gli assi X e Z ruotati en¬ 
trambi di 90 gradi. Ecco la macchina in 
assetto di marcia. Una rotazione di 60 
gradi su entrambi gli assi ce la presenta 
dall'alto e di fianco, mentre una rotazio¬ 
ne di 90 gradi del solo asse X ce la 
presenterà vista dalla parte posteriore. 


Questo è già un buon esempio di quan¬ 
to si può ottenere con un programma 
per il disegno assistito dall'elaboratore. 


Uno sguardo al listato 

Per semplicità, verranno indicati i nu¬ 
meri di riga e accanto a essi i relativi 
commenti. 

0 - La numerazione delle righe parte da 
0 e prosegue per incrementi di 1. Ciò 
permette di risparmiare memoria. La va¬ 
riabile M definisce il numero di linee che 
il programma potrà tracciare. 

1 - L’istruzione grafica Box traccia il 
riquadro in cui verranno riprodotte le 
proiezioni dei solidi. 

2-5 - Presentazione del menu iniziale. 

6 - Uscita dal programma previa confer¬ 
ma. 

7-10 - Immissione dei dati. La variabile X 
memorizza il numero massimo di linee 
utilizzato. Ciò servirà per rendere in se¬ 
guito più rapida l'archiviazione e la let¬ 
tura dei dati sul nastro. 

11-16 - Subroutine di analisi dei dati 
immessi e di presentazione delle scritte 
sullo schermo grafico. Riconosce la 
pressione del tasto (Return] come vali¬ 
da per l’immissione dei dati, oltre a per¬ 
mettere la cancellazione con il tasto Del 
(si vedano le righe 13 e 14). 

17-19 - Richiesta dei dati per il traccia¬ 
mento. Da notare, alla riga 18. il mecca¬ 
nismo per la definizione della Scala. 
20-29 - Routine di tracciamento. Le ri¬ 
ghe 22-25 servono a determinare i punti 
delle circonferenze (o ellissi) per il cal¬ 
colo. L'incremento scelto è di 12 gradi. 
Se non lo si ritenesse soddisfacente co¬ 
me accuratezza, lo si potrà variare nella 
riga 23. Si tenga però presente che, a 
causa dei molti calcoli e dei vari arro¬ 
tondamenti conseguenti, le circonfe¬ 
renze non saranno mai perfette come 
se fossero tracciate con l’istruzione Cir- 
cle. 

30 - Subroutine di cancellazione della 
parte destra dello schermo. 

31-33 - Subroutine di archiviazione dei 
dati. 

34-36 - Subroutine di lettura dei dati da 
nastro. ■ 


20 
























ZX SPECTRUM 


Panico! 

Riuscirete a sfuggire alle creature 
che vi danno la caccia? 


dì Marcello Spero 


B asato su un noto gioco arca¬ 
de, questo programma vede il 
vostro piccolo personaggio 
costretto a salire e scendere 
precipitosamente le scale che collega¬ 
no i diversi livelli, inseguito dalle tremen¬ 
de creature verdi. Per sopravvivere esso 
dovrà distruggerle, facendole precipita¬ 
re nelle buche da lui scavate, per poi 
seppellirle senza pietà. 

Purtroppo, gli elementi in suo favore 
non sono molti; la riserva di ossigeno è 
infatti limitata, ed eccessivi movimenti o 
un tempo troppo lungo speso nella cac¬ 
cia possono significare la sua fine. 
Ovviamente anche la cattura gli sareb¬ 
be letale. 

Tutto, dalla grafica, al colore, al suo¬ 
no, contribuisce a rendere appassio¬ 
nante questo programma, che vi terrà 
per ore inchiodati alla sedia. State calmi 
e non fatevi prendere dal panico! 


Il programma 

Copiate il programma 1, per creare i 
caratteri grafici e fatelo girare. Quindi 


copiate il programma principale e sal¬ 
vatelo con Goto 9999. Il salvataggio av¬ 
verrà in due sezioni, una dopo l’altra; 
non dimenticatevi di premere un tasto, 
dopo che la prima sezione sarà termi¬ 
nata. Verificate ambedue le sezioni, con 
Verify Verify Code, seguito da En- 
ter. 

Interessante è il metodo usato per te¬ 
ner nota del record; questo viene inseri¬ 
to, con una Poke, nell'area della grafica 
definibile (Udg), in modo da rimanere 
inalterato anche nel caso il programma 
venga fatto ripartire con Run. 


Controlli 


5 per andare a sinistra. 

6 per andare in giù. 

7 per andare in su. 

8 per andare a destra. 

9 per scavare a sinistra. 

0 per scavare a destra. 

Le linee che contengono caratteri grafi¬ 
ci sono le seguenti: 

50. 60. 100, 150, 160, 170, 180, 200, 213, 
300, 310, 380, 400, 405, 410, 470, 610, 
620, 640, 720, 740, 780, 790, 800, 820. ■ 


Listato 1 - Il primo programma Panico! 

10 FOR i=USR "a" TO USR "a"+145 
20 READ X 
30 POKE i,x 
40 NEXT i 

50 DATA 0,24,24,255,189,60,36,102 
60 DATA 195,66,126,90,126,126,36,66 

70 DATA 255,255,24,24,24,24,24,255 
80 DATA 195,195,195,255,255,195,195 
,195 

90 DATA 0,28,28,12,60,12,22,50 
100 DATA 0,56,56,48,60,48,104,76 
110 DATA 12,16,40,68,66,1,0,0 


120 DATA 0,0,1,66,68,40,16,12 
130 DATA 96,8,20,34,66,128,0,0 
140 DATA 0,0,128,66,34,20,8,96 
150 DATA 0,129,129,129,193,243,235,2 
55 

160 DATA 255,129,129,129,129,129,255 
,255 

170 DATA 255,129,129,129,129,129,129 
,255 

180 DATA 255,24,24,24,24,24,255,255 
190 DATA 24,60,126,126,126,126,126,1 
26 

200 DATA 0,124,66,66,124,64,64,0 
210 DATA 0,60,66,66,82,74,60,0,0 
220 DATA 124,66,66,124,68,66,0,0,60 


Listato 2-11 secondo programma Panlcol 

10 POKE 23693,56: CLS : GO TO 575 
20 CLS : DEF FN R(X)=INT (RND*X): 

GO TO 610 

30 LET Xl=X: LET Yl=Y 
40 IF INKEY$="H" THEN GO SUB 750 
50 IF X=3 OR X=8 OR X=13 OR X=18 
THEN LET Y=Y+(IN 61438=251 
AND Y<31)-(IN 63486=239 AND Y>0 


): LET A$=("E" AND Yl>Y)+("F" 
AND Yl <Y) : IF YlOY THEN 
LET UN=UN+.25: GO TO 90 
60 LET UN=UN+.15 : LET A$ = "A" 

70 IF ATTR (X+l,Y)= 57 AND IN 61438 
239 THEN LET X=X+1: LET F=1 
80 IF ATTR (X—1 ,Y)= 57 AND IN 61438 
247 THEN LET X=X-1: LET F=1 
90 PRINT AT XI,Yl;" " 

100 IF F=1 THEN PRINT AT Xl,Yl; 
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10 Volumi 

JACKSON DI ELETTF 

2 Volumi MONOGRAFIE 


IL GRANDE DIZIONARIO 
JACKSON DI ELETTRONICA E INFORMATICA 


LA SCI 



















Rimando alla 
monog ralla 


Traduzione 

italiana 


Definizione 
della voce 


Sinonimi 
inglesi e italiani 


Le illustrazioni (immagini 
o schemi) e le rispeitive didascalie integrano, 
ampliano ed esemplificano la definizione 
delia voce relativa 


Le voci più importanti 
di elettronica, informatica 
e comunicazioni sono 
definite in modo esteso 


Campo 

di appartenenza 
della voce 


Voce 


Acronimo 


La monografia tratta in modo 
esauriente e completo i concetti 
e le voci fondamentali 


Rimando 
alla voce 
principale 


II Grande 
Dizionario 

r 1 =*=^ Jackson 

di Elettronica 
e Informatica 

/ è il risultato di un importante 
lavoro di ricerca, durata più di 
cinque anni, che ha coinvolto decine di 
specialisti. 

DEI è l’unica opera al mondo che 
risponde all’ormai improrogabile necessità di 
raccogliere e organizzare tutti I termini tecnici 
nati dalla diffusione massiccia dell’elettronica, 
informatica e comunicazione per 
formalizzare e consolidare il "nuovo sapere”. 

DEI è per tutti coloro che hanno capito 
l’importanza di sapersi orientare in questo 
nuovo universo linguistico; per chi vuole 
comprendere il significato di termini che le 
nuove discipline hanno introdotto anche nel 
linguaggio comune; per quanti desiderano 
saperli utilizzare con padronanza per non 
rimanere esclusi da un mondo che sta 
compiendo un cambiamento le cui 
dimensioni sono senza precedenti; per 
coloro, infine, che per lavoro, studio, 
informazione vogliono possedere, già da 
oggi, la "cultura di domani”. 


Con DEI, infatti, la trasformazione della 
scienza di oggi nella cultura di domani 
compie un decisivo passo avanti. 

DEI 

• 45000 termini 

• 3000 illustrazioni 

• 1000 monografìe 
in 100 fascicoli 
settimanali 
da rilegare in 12 
splendidi volumi. ... 




DIVISIONE GRANDI OPERE 





































































































Seguito listato 2. 


INK 1 ;"D" 

110 IF XlOX THEN LET UN=UN+.15 
120 LET F=0: IF ATTR (X,Y)=57 THEN 
LET F=1 

130 IF IN 61438=255 OR X<>3 AND X 
08 AND X<> 1 3 AND X<>18 
THEN GO TO 210 

140 LET V=ATTR (X+l,Y+l): LET Vi= 

ATTR (X+l,Y-1): IF V=58 OR Vl=58 
THEN LET SC=SC+5: PRINT AT 0,6 
; SC 

150 IF IN 61438=253 AND ATTR (X-1,Y- 
1)057 AND ATTR (X-1,Y-1)06 
0 AND ATTR (X,Y-1)<>57 THEN 
LET UN=UN+.15: LET W=1 : PRINT 
AT X,Y; INK 1 ;"E": FOR N=1 TO 5: 
PRINT AT X,Y-l; "G" : PAUSE 2: 
PRINT AT X,Y-l;"H": PAUSE 2: 
PRINT AT X,Y-l;" ": BEEP .01,Y: 
PRINT AT X+l,Y-l; "K" : NEXT N: 
PRINT AT X+l,Y-1" 

160 IF IN 61438=254 AND ATTR (X,Y+1) 
057 AND ATTR (X-1,Y+1)<>57 
AND ATTR (X-l,Y+l)O60 THEN 
LET UN=UN+.15: LET W=2: PRINT 
AT X,Y; INK 1 ;"F": FOR N=1 TO 5: 
PRINT AT X, Y+l ; "I_" : PAUSE 2: 
PRINT AT X,Y;"J": PAUSE 2: 

PRINT AT X,Y+l;" BEEP .01,Y: 
PRINT AT X+l,Y+l;"K": NEXT N: 
PRINT AT X+l,Y+l;" " 

170 IF VI=58 AND W=1 THEN PRINT 
AT X+l,Y-l; PAPER 6;"C" 

180 IF V= 58 AND W = 2 THEN PRINT AT X 
+1,Y+l; PAPER 6;"C" 

190 LET W=0 

200 IF ATTR (X,Y)=60 THEN PRINT 
AT 2,5;"SEI STATO DIVORATO!"; 

AT X,Y; INK 1; OVER 1; FLASH 1;" 
A": FOR N=0 TO 100: NEXT N: 

GO TO 530 

210 IF ATTR (X,Y)=62 THEN GO TO 880 
213 PRINT AT X,Y; INK 1 ;A$: IF 

ATTR (X+l,Y)=56 THEN PRINT AT 2 
,2;"SEI CADUTO IN UNA BUCA";AT X 
,Y;" "; INK 1;AT X+1,Y;"A": 

FOR N=1 TO 100: NEXT N: GO TO 5 
30 

215 IF XY<=125 AND F2=0 THEN 
GO TO 850 

220 FOR N=1 TO (UN*10)/LV: PLOT 

INK 2 ;XY,8 : DRAW INK 2; OVER 1 
; 0,7: LET XY=XY-1: LET UN=UN-.1 : 
NEXT N 

230 IF XY< =72 THEN PRINT AT 2,0;"SE 


I MORTO ASFISSIATO": FOR N=I 
TO 100: NEXT N: GO TO 530 
240 LET Al=A(Z): LET Bl=B(Z) 

250 IF ATTR (Al+l,Bl)=56 THEN 
GO TO 470 

260 IF Al=X THEN IF Al=3 OR Al=8 

OR Al=13 OR Al=18 THEN GO TO 3 
50 

270 IF C(Z)<>0 THEN GO TO 300 
280 IF ATTR (Al+1,Bl)=57 OR ATTR (Al 
-1,B1)=57 THEN GO TO 330 
290 GO TO 350 

300 LET A(Z)=A(Z)+C(Z): IF A(Z)=3 

OR A(Z)= 8 OR A(Z) = 13 OR A(Z)=18 
THEN LET C(Z)=0: PRINT AT Al,B 
1; INK 1 ;"D": LET Al=A(Z): LET F 
(Z) = 1 : GO TO 350 

310 PRINT AT Al,Bl; INK 1 ;"D": LET A 
1=A(Z): LET Bl=B(Z): GO TO 400 
320 GO TO 400 

330 IF Al<X AND ATTR (Al+1,Bl)=57 
THEN LET C(Z)=1: GO TO 300 
340 IF Al>X AND ATTR (Al-l,Bl)=57 
THEN LET C(Z)=-1: GO TO 300 
350 IF Al=X THEN LET Bl=B1+(B1<Y)-( 
Bl>Y): GO TO 380 
360 LET Bl=Bl+D(Z) 

370 IF Bl>=31 OR Bl<=0 THEN LET D(Z 
)=-D(Z) 

380 PRINT AT A(Z),B(Z);" ": IF F(Z)= 

1 THEN PRINT AT A(Z),B(Z); 

INK 1 ;"D" 

390 LET F (Z)=0: IF ATTR (Al,Bl)=57 
THEN LET F ( Z)=1 
400 PRINT AT Al,Bl; INK 4;"B" 

405 IF F2=1 THEN PRINT AT F5,F4; 

OVER 1; INK 6;"0" 

410 IF Al=X AND Y=B1 THEN PRINT 

AT 2,5;"SEI STATO DIVORATO";AT X 
,Y; OVER 1; INK 1; FLASH 1;"A": 

FOR N=0 TO 100: NEXT N: GO TO 5 
30 

420 IF ATTR (Al+1,Bl)=56 THEN 
GO TO 470 

430 LET A(Z)=Al: LET B(Z)=Bl 
440 LET Z=Z+1: IF Z>=Cl THEN LET Z= 
1 

450 IF INKEY$="H" THEN GO SUB 750 
460 GO TO 30 

470 PRINT AT Al,B 1 ;" "; AT Al + l,Bl; 
INK 2;"B": FOR N = 1 TO 4: BEEP 
1,N: BEEP .1,5-N: NEXT N 
480 IF CI-1=1 THEN LET SC=SC+10: 

GO TO 520 

490 LET A(Z)=A (CI-1) : LET B(Z)=B(Cl- 
1): LET F(Z)=F (Cl- 1) 


24 




Panico! 


ZX SPECTRUM 


Seguito listato 2. 

500 LET SC=SC + 1 0: LET C.l=Cl-l 
510 PRINT AT 0,6 ; SC : LET Z=1: 

GO TO 440 

520 PRINT AT 1,0; FLASH 1; INK 4;"BO 
NUS": FOR N=XY TO 72 STEP -1: 
BEEP .01,XY/4: PLOTXY,8: 

DRAW INK 2; OVER 1;0,7: LET SC 
=SC + 1: PRINT AT 0,6;SC: LET XY=X 
Y-l : NEXT N: FOR N = 1 TO 50: 

BEEP .05,N: BEEP .05,50-N: 

NEXT N: GO TO 20 
530 IF SC>HI THEN PRINT AT 1,0; 

FLASH 1; INK 2;" NUOVO RE 

CORD! ! ! ": FOR N = 0 TO 5 

0: BEEP .01,N: BEEP .01,25-N: 

NEXT N: POKE USR "U",SC-256* 

INT (SC/256): POKE USR "U"+l, 

INT (SC/256): GO TO 550 
540 PRINT AT 0,0;: FOR N=1 TO 11 : 

PRINT INK 7; PAPER 8; OVER 1; 
FLASH 1 ;" 

": NEXT N: FOR N=1 
TO 2: BEEP .5,-5: BEEP .5,-10: 
PAUSE 40: NEXT N: FOR N=50 TO 0 
STEP -1: BEEP .05,N: NEXT N 
550 PRINT AT 11,3;"PREMI UN TASTO PE 
R INIZIARE";AT 13,3;"PREMI 'I’ P 
ER LE ISTRUZIONI": IF IN 254=255 
THEN GO TO 550 

570 GO TO (575 AND (INKEY$<>"i" 

AND INKEY$<>"I")) + {780 AND ( 
INKEY$="Ì" OR INKEY$="I")) 

575 INPUT "LIVELLO (1-5)"; LINE L$: 

IF L$>"5" OR L$<"1" THEN 
GO TO 575 

576 LET LV=(VAL L$-0.9)*5: GO TO 600 

580 LET N=0: POKE USR "U",N-256* 

INT (N/256): POKE USR "U" + l , 

INT (N/256) 

590 BORDER 5: PAPER 7: CLS : PRINT 

INK 0;AT 13,3;"PREMI 'I' PER LE 
ISTRUZIONI": FOR N = 19 TO 21: 
PRINT AT N,0 ; INK 4;"{32SG8}": 
NEXT N: PRINT AT 20,1; INK 2;"P 
ANICO SPETTRALE": 
PRINT AT 11,3;"PREMI UN TASTO P 
ER INIZIARE": PAUSE 0: GO TO 570 

600 CLS : LET LE=0: LET SC=0: LET HI 
=PEEK USR "U"+256*PEEK (USR "U"+ 
1 ) 

610 INK 7: CLS : INK 0: PRINT AT 19, 
0; PAPER 6;"CCCCCCCCCCCCCCCCCCCC 


CCCCCCCCCCCC"; INK 2; PAPER 7;"0 
SSIGENO>"; INK 0; PAPER 6;" MMMMM 
MMMMMMMMMMMMMMMMMNNNNNNNNNNNNNNN 

NNNNNNNNNNNNNNNNNN" 

620 FOR N=4 TO 14 STEP 5: PRINT AT N 
,0; PAPER 6;" CCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCLLLLLLLLLLLLLLLLLLL 

LLLLLLLLLLLLL": BEEP .1,50-N: 

BEEP .1,N: NEXT N 
630 PAUSE 25 

640 FOR N=3 TO 13 STEP 5: LET Z=FN R 
(13)+1 : FOR F=0 TO 5: PRINT AT N 
+F,Z; INK 1 ;"D": BEEP .05,N+F: 
PRINT AT N+F,31 -Z; INK 1;"D": 
BEEP .05,N+F: NEXT F: BEEP .1,F 
: PAUSE 10: NEXT N 

650 PRINT AT 0,0;"PUNTI>";SC;AT 0,16 
;"RECORD>";HI 

660 LET Y=FN R(13)+l: LET W=FN R(4): 

IF W=0 THEN LET X=3 
670 IF W=1 THEN LET X=8 
680 IF W=2 THEN LET X=13 
690 IF W=3 THEN LET X=18 
700 IF ATTR (X,Y)=57 THEN GO TO 660 

710 LET F2=0: LET Z=1 : DIM D(4): 

DIM A(4): DIM B(4): DIM C(4) 

720 LET A(1) =2: LET D ( 1)=1 : LET B ( 1) 
=FN R(30) +1 : PRINT AT A(1) ,B ( 1 ) ; 

INK 4 ;"B": BEEP .01,A(1) : FOR N 
=2 TO 4: LET A(N)=A(N-1)+5: 

LET D(N)=1 

730 LET B(N)=FN R(30)+l: IF ATTR (A( 
N ) , B (N ) ) = 57 OR A(N)=X AND B(N)=Y 
THEN GO TO 730 

740 LET W=0: LET Cl=5: PRINT AT A(N) 
,B (N); INK 4 ;"B": BEEP .01,A(N): 
NEXT N: LET LE=LE+1: DIM F(4): 
LET UN = 0: LET XY=(30-LE)*8+7: 
FOR N=9 TO 30-LE: BEEP .01,N: 
PRINT AT 20,N; INK 2;"{SG8}": 
NEXT N: GO TO 30 

750 PRINT AT 1,12; FLASH 1; INK 2;"G 
IOCO "; INK 1 ;"BLOCCATO": IF 
IN 25=255 OR INKEY$="H" THEN 
GO TO 750 

760 PAUSE 0: PRINT AT 1,12;" 

": RETURN 

770 POKE 23658,8: CLS : PRINT AT 11, 
5; INK 1; FLASH 1 ;"CARICAMENTO"; 

INK 2;"CARICAMENTO";AT 12,5;"CA 
RICAMENTO"; INK 1 ;"CARICAMENTO": 
INK 7: LOAD "udg"CODE USR "A": 
INK 0: GO TO 580 

780 CLS : PRINT "*ISTRUZIONI*"'"USA 













A Dalla grande 
wedkola Jackson 

Tutto suirhobby 
e Home computer 


UiBCC 

VIVMll 

La guida indiscussa al fantastico mondo dei 
videogames. La più eccitante, divertente, 
istruttiva rassegna del settore. 

11 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 33.000 

PERSONAL 

SOFTWARE 

Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi 
operativi. 

11 numeri all'anno: L. 4.500 a numero 
Abbonamento: solo L. 39.000 


eEG@®S¥a 


11 nuovo fai da te per l'hobbista elettronico, 

con progetti sempre nuovi e originali da realizzare 
e divagazioni sul mondo dei micro computer. 

12 numeri all'anno: L. 5.500 a numero 
Abbonamento: L. 32.000 


Il mondo delle 7 note in 

versione ... elettronica. Con test strumentali, 

novità e analisi del mercato, servizi speciali. 

11 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 35.000 

Quando l'informazione fa testo 


In busta chiusa inviate questo coupon a: 
Gruppo Editoriale Jackson via Rosellini, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero della Rivista 


(allego L. 1.000 in francobolli per contributo spese 
di spedizione) 

□ Inviatemi GRATIS il Catalogo della 
Biblioteca JACKSON (allego L. 1.000 
in francobolli per contributo spese di 
spedizione) 

Nome- 

Cognome ___ 

via-.- 

CAP_Città- 


Panico! 

ZX SPECTRUM 


Seguito listato 2. 


I TASTI CURSORE PER MUOVERTI"'"9 

E 0 PER SCAVARE,"'"H PER BLOCCA 
RE IL GIOCO,"" FLASH 1 '"SCAVO": 

FOR N = 0 TO 31 : PRINT PAPER 6; 
AT 12,N;"C";AT 13,N;"L": NEXT N 
790 PRINT AT 11,16; INK 1 ;"E": FOR N 
=1 TO 5: PRINT AT 11,15;"G": 

PAUSE 2: PRINT AT 11,15;"H": 

PAUSE 2: PRINT AT 11,15;" ": 

BEEP .01,11: PRINT AT 12,15;"K" 
: NEXT N: PRINT AT 12,15;" " 

800 PAUSE 50: PRINT AT 7,0; FLASH 1; 
"ALIENO: 10 PUNTI": FOR N=1 TO 1 
4: PRINT AT 11,N; INK 4;" B" : 

PAUSE 15: NEXT N: PRINT AT 11,1 
5;" "; AT 12,15; INK 2;"B": FOR N 
=1 TO 4: BEEP .1,N: BEEP .1,5-N: 

NEXT N 

810 PAUSE 50: PRINT AT 7,0; FLASH 1; 

"ALIENO SEPOLTO: 5 PUNTI" 

820 PRINT AT 11,16; INK 1 ;"E": FOR N 
=1 TO 5: PRINT AT 11,15;"G": 

PAUSE 2: PRINT AT 11,15;"H": 

PAUSE 2: PRINT AT 11,15;" ": 

BEEP .01,11: PRINT AT 12,15;"K" 
: NEXT N: PRINT AT 12,15; 

PAPER 6;"C" 

830 PRINT AT 15,0;"PREMI 'I' PER RIP 
ETERE'" "LE ISTRUZIONI" ' "'0 UN AL 
TRO TASTO PER INIZIARE": PAUSE 7 
5 

840 GO TO (780 AND INKEY$ = "I") + ( 1 0 

AND INKEY$<>"I")+(830 AND 
INKEY$="") 

850 IF RND>.7 THEN LET F2=2: 

GO TO 220 

860 PRINT AT 1,10; INK 6; FLASH 1 ;"O 
SSIGENO DI RISERVA": LET F4= 

INT (RND*32): LET F6=FN R(4): 

LET F5= (3 AND F6 = 0) + (8 AND F6=l 
) + (1 3 AND F6=2) + (18 AND F6=3) 

865 IF ATTR (F5,F4)=57 THEN GO TO 8 
60 

870 LET f2=1 : GO TO 220 
880 PRINT AT 1,10;" 

": LET f2=2: LET f3 = INT (RND*4 
0)+30: FOR n=l TO f3: LET xy=xy+ 
1: PLOT xy,8 : DRAW INK 2;0,7: 

BEEP .01,xy/5: NEXT n 
890 GO TO 213 

9998 STOP 

9999 SAVE "panico" LINE 770: SAVE "ud 
g"CODE USR "a",l46 

















SINCLAIR QL 


L a gestione del proprio patrimo¬ 
nio di riviste, che consenta 
un'immediato reperimento del¬ 
le informazioni ordinate per ar¬ 
gomento, è probabilmente quanto di 
meglio possiamo fare con il nostro per¬ 
sonal. 

Quante volte infatti ci siamo persi nel 
cercare qualcosa di già visto pubblica¬ 
to su periodici, arenandoci regolarmen¬ 
te nello sfogliare un mare di riviste sen¬ 
za trovare ciò che ci interessa? 
Ovviamente per poter ottenere qualche 
risultato bisogna che siano soddisfatte 
alcune condizioni. 

Anzitutto la lettura di ciascun fascicolo 
dovrà tassativamente terminare con 
l'archiviazione dei contenuti su un sup¬ 
porto magnetico; inoltre è necessario 
disporre in un tempo sufficientemente 
breve del materiale archiviato e questo 
può avvenire solo disponendo di un 
buon programma di archiviazione che 
si adatti nel migliore dei modi all'appli¬ 
cazione prevista. 

Il software di base fornito (gratuita¬ 
mente) con il QL contiene il programma 
Archive, un data base molto potente 
con un ampio set di istruzioni specializ¬ 
zate nella manipolazione di file di dati e 
la possibilità di creare procedure ad 
hoc con un linguaggio decisamente si¬ 
mile più al Pascal che al Basic. 

Il maggior rischio che si corre archi¬ 
viando una raccolta di articoli è rappre¬ 
sentato dalla disomogeneità delle infor¬ 
mazioni in essi contenuti; non ha infatti 
nessun senso raccogliere semplice- 
mente dei riassunti se poi dobbiamo 
scorrere tutto l'archivio per trovare ciò 
che cerchiamo. 

La prima idea è quella di raccogliere in 
campi specifici alcuni aspetti salienti del 
pezzo in questione (i cosiddetti campi 
guida); purtroppo il più delle volte que¬ 
sto non basta, perché esiste sempre il 
rischio di memorizzare informazioni ri¬ 
guardo ad argomenti analoghi sotto 
voci sinonime, che sfuggono alla suc¬ 
cessiva ricerca mirata. 

È quindi preferibile che il computer 
stesso guidi la classificazione, propo¬ 
nendo un insieme di parole-chiave cui 
fare costante riferimento. 

Se l'applicazione è poco meno che ba¬ 
nale, è una buona idea strutturare que¬ 
sto dizionario in modo che termini di 
orizzonte più vasto consentano di acce¬ 
dere a sottoliste di argomenti più speci- 


Emeroteca 
con “Archive” 

Archiviamo con intelligenza 
gli articoli delle riviste 

dì Giovanni Tisi 


Listato 1 - Listato procedura “Emer-Prg”. 


proc aggiungi 
use "a" 
let altri=l 
whlle altri 

sinput soggS, maccS,rif£.notes 

scan 

use "a" 

let codeS=perS 

append 

sprint 

print at 13,0; "ALTRI ?(Y/N>" 
let altri = upper (getkey O >=" Y" 
endwhlle 
endproc 
proc apri 

open "rivi"logicai "a" 
look "thes"logicai M t" 
sload "ts" 
whlle menoryO 

print at 13,0; " Aggiungi Ricerca Correggi" 
let aS=upper(getkey(>^ 
if aS="A": aggiungi: endlf 
il aS="R": ricerca: endlf 
if aS="C": correggi: endlf 
endwhlle 
endproc 
proc ricerca 

print at 13,0; "Premere T per avvlersi del catalogo per argomenti" 
whlle upper(getkey<)>="T" 
scan: use "a" 
reset 

let l=len(perS> 

select codeS( to l)=perS 

print at 13,0; "Esistono "; countO; " record© con questo codice. T per pr-o 
seguire" 

endwhlle 
endproc 
proc scan 
let perS="" 
let aS-"" 
let anc=l 
use "t": first 
whlle nip and anc 
search noS=perS 
print at 13,0; " 

print at 13,0; figS 
let a*=upper(getkey(>> 
let anc=code(ai)<>10 
if anc: let per$=perS+aS: endlf 
endwhlle 
print at 13,0; " 
endproc 
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I 

fici, fino a giungere al massimo grado di 
: definizione richiesta dal problema. 

Questo dizionario dovrebbe essere fa- 
: cilmente modificabile, a esempio per 
! consentire l’introduzione di nuovi termi¬ 
ni prima sottovalutati o per l’eliminazio¬ 
ne di doppioni, e la sua scansione deve 
dare come risultato un codice alfabeti¬ 
co o numerico che indichi in modo uni¬ 
voco il percorso seguito dalla radice di 
ingresso al nodo finale. 

Si noti che in fase di ricerca è spesso 
assai utile non essere troppo specifici 
nella richiesta, a esempio può servire un 
elenco di tutte le periferiche grafiche, 
non solo delle stampanti o dei plotter, 
quindi c bene prevedere che la scansio 
ne del dizionario possa essere interrotta 
in qualsiasi momento. 

In pratica l’insieme delle parole chiave 
viene memorizzato in una struttura ad 
albero un po' particolare, dove ogni no¬ 
do è rappresentato da un record conte¬ 
nente tutte le possibili scelte per prose¬ 
guire verso il basso. 

Ogni record viene raggiunto durante la 


scansione perché provvisto di un cam¬ 
po iniziale che funge da target, conte¬ 
nendo l’esatto cammino che ha portato 
dalla radice fino a lui. 

Per risparmiare memoria i record termi¬ 
nali, cioè quelli che non avrebbero suc¬ 
cessori, non vengono creati; il fatto è 
segnalato in un apposito campo. 

Questa lunga chiacchierata può aver 
scoraggiato qualcuno, ma possono ri¬ 
credersi osservando che un thesaurus 
(così viene chiamato in modo aulico il 
dizionario) già abbastanza completo, 
che consenta la catalogazione di riviste 
di informatica, può essere agevolmente 
rappresentato da una quindicina di re¬ 
cord e alloggiare quindi permanente- 
mente in memoria. 


Riempimento del dizionario 

La dozzina di record di Thes va carica¬ 
ta manualmente secondo uno schema 
predefinito che risponda alle particolari 
esigenze di ognuno; in figura 1 e 2 è 


mostrato il thesaurus 7 utilizzato per 
riviste di informatica, ma è meglio che 
ciascuno studi un suo albero di catalo¬ 
gazione. 

Procedure 

Per utilizzare in modo proficuo l'archi¬ 
vio sono poi necessarie alcune routine 
come quelle mostrate nel listato. 
Anzitutto va disegnato l'algoritmo di 
scansione del thesaurus, che, partendo 
dall'Inizio, consenta di scendere fino al¬ 
la profondità desiderata, restituendo 
nella variabile globale Per$ il percorso 
seguito; verrà utilizzata sia per catalo¬ 
gare che per selezionare in fase di ricer¬ 
ca. Oltre a questa sono mostrate, a puro 
titolo d'esempio, procedure per l'ag¬ 
giunta di articoli e per la ricerca degli 
stessi via Code$. Tutto l'insieme è coor¬ 
dinato dalla routine Apri e fa riferimento 
a un layout dello schermo memorizzato 
in un file TS-Scn che ognuno potrà per¬ 
sonalizzare a proprio piacimento. ■ 
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Figura 2 - Record 
di “Thes" e di “Rivi”. 


Figura 1 - L'albero 
di classificazione. 


Creazione dell’archivio 

Creale 'Rivi" 

Archivio del riassunti. 

SoggS 

Soggetto dell'articolo. 

MaccS 

Macchina 

RilS 

Riterimento alla (onte 

NoteS 

Contenuto. 

CodeS 

Contiene il percorso di identificazione 
ed è quindi univoco per argomento 

Endcreate 


Create 'Thes' 

Dizionario strutturato dette parole- 
chiave 

NoS 

Target di identificazione. 

FigS 

Possibili opzioni per proseguire. 

Nip 

Flag di (me scansione. 

Endcreate 
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Cruci Msx 

Ovvero il primo esempio di cruciverba 

su computer Msx 

di Luciano Cassi 


Q uesto programma si rivolge 
alle persone appassionate di 
cruciverba, che vogliano pro¬ 
varlo su computer e a quelle 
alle quali il cruciverba non piace molto 
(o non piace affatto), che però apprez¬ 
zando i videogame, desiderino cimen- 
tarvisi almeno una volta. 


Il gioco 

Dopo avere dato il Run, apparirà la 
solita presentazione. Dopo avere pre¬ 
muto un tasto, avremo il menu. Abbia¬ 
mo due opzioni. 

1. Regole del gioco 

Con questa prima opzione, potremo ve¬ 
dere le istruzioni che riguardano il gioco 
e l'utilizzazione del programma. Ades¬ 
so, ne elencheremo qualcuna: 

1) quando digiteremo una definizione, 
accorgendoci che questa è sbagliata, 
non potremo correggerla immediata¬ 
mente: dovremo richiamarla in seguito; 

2) quando il programma ritiene che ab¬ 
biamo completato il cruciverba, ci chie¬ 
de se vogliamo smettere oppure no. In 
caso affermativo, sapremo quante defi¬ 
nizioni orizzontali e quante verticali av¬ 
remo indovinato. Se non vogliamo ter¬ 
minare, allora il computer ci darà anco¬ 
ra dieci tentativi per completare il cruci¬ 
verba, continuando a darceli fino a 
quando non gli diremo che vogliamo 
smettere. 

2. Il gioco 

Selezionando questa opzione, entrere¬ 
mo nel vivo del gioco. Immediatamente 
ci verrà chiesto quale cruciverba desi¬ 
deriamo (ce ne sono registrati tre). Do¬ 
po avere atteso un attimo ci verrà chie¬ 
sto se vogliamo le definizioni orizzontali 
o verticali. Scelta una delle due, ci verrà 
fornito il numero delle scelte. Dopo a- 
verne selezionata una, avremo la defini¬ 
zione e, poco dopo, potremo scrivere 
quella che ci sembra la risposta esatta. 
Dopo aver battuto il tasto Return, ve¬ 
dremo il reticolato classico dei cruciver¬ 
ba e la risposta sarà stampata al suo 
interno. Dopo poco comparirà il mes¬ 
saggio “Batti un tasto". Dopo averlo 
premuto il programma cancellerà il reti¬ 
colato e tornerà a chiederci se vogliamo 
una definizione orizzontale o verticale, 
altrimenti potremo studiare il cruciverba 
senza alcuna limitazione di tempo. 


Variabili e vettori principali 

Variabili 

AA, BB, CC, DD, XX, - Contatori. AA e 
BB sono rispettivamente il numero delle 
definizioni orizzontali e verticali. XX è il 
contatore che, sommando i valori di AA 
e BB, confrontato poi con un altro con¬ 
tatore, dice al programma quando il 
giocatore dovrebbe avere completato il 
cruciverba. CC e DD sono utilizzati al 
termine. Questi vengono incrementati 
solamente se le definizioni orizzontali o 
verticali sono esatte. 

Vettori 

DOS, DV$, D1S, D2S - Questi vettori con¬ 
tengono rispettivamente: le definizioni 
orizzontali, quelle verticali, le risposte 
delle definizioni orizzontali e delle verti¬ 
cali. 

A$, A1$, -Vengono utilizzati, il primo per 
le orizzontali, l'aitro per le verticali, en¬ 
trambi nelle due routine per l'incolonna- 
mento delle risposte nel reticolato. 

RV, RO, K, RI, R2, K1, - Questi vettori 
numerici servono per: posizionamento 
orizzontale, verticale e lunghezza della 
risposta orizzontale, posizionamento o- 
rizzontale, verticale e lunghezza della 
definizione verticale. 


Commento al listato 

10 - Inizializzazione. 

20 - Azzeramento variabili e dimensio¬ 
namento vettori. 

30 - Pulizia schermo. 

40 - Stampa menu. 

50 - Input B$; trasformazione del dato 
stringa in dato numerico, controllo se il 


dato numerico è compreso tra uno e 
due. 

60 - A seconda del valore del dato nu¬ 
merico, l’esecuzione del programma 
passa o al sottoprogramma sito dalla 
riga 1000, o a quello sito dalla riga 5000. 
70 - Se il valore di W è uno, torna alla 
riga 30. 

80-100 - Cambio colori e modo dello 
schermo, ripristino delle key e fine pro¬ 
gramma. 

1000-1140 - Spiegazioni e uso del pro¬ 
gramma. 

5000 - Pulizia schermo. 

5010 - Stampa il menu. 

5020 - Esecuzione uguale alla riga 50. 
5030 - A seconda del valore di B,il pro¬ 
gramma va a caricare le date relative al 
cruciverba scelto. 

5040 - Pulizia schermo. 

5050-5070 - Routine per scegliere da 
quale gruppo si vuole la definizione. Se 
si vogliono le definizioni orizzontali an¬ 
dremo al sottoprogramma sito dalla ri¬ 
ga 7000. 

5110-5480 - Disegno del reticolato grafi¬ 
co. 

5490-5540 - Routine per il posiziona¬ 
mento sul reticolato delle risposte oriz¬ 
zontali. 

5550-5590 - Routine per il ripristino dei 
vettori che contengono i dati per il posi¬ 
zionamento delle risposte orizzontali. 
5600-5650 - Esecuzione uguale alla rou¬ 
tine sita da 5490-5540. Adattamento per 
le risposte verticali. 

5660-5700 - Esecuzione identica alla 
routine da 5550-5590. Attuate le stesse 
modifiche della routine da 5600-5650. 
5710 - Stampa la frase “Batti un tasto". 
5720-5730 - Input B$. Se il valore di TC è 
uguale a XX, incrementane il valore di 
dieci e vai a 5740. 

5740-5770 - Ci viene chiesto se voglia- 






I 


mo continuare a giocare. Se sì. tornia¬ 
mo l'esecuzione alla riga 5040. 

5780 - Azzeramento contatori CC.DD. 
5790-5820 - Routine per definire quante 
definizioni orizzontali sono state indovi¬ 
nate. 


5830-5860 - Routine per definire quante 
definizioni verticali sono state indovina¬ 
te. 

5870-5910 - Stampa dei risultati e ritor¬ 
no alla riga 70. 

6000-6180 - Subroutine per la scelta, la 


visione e l'input della definizione oriz¬ 
zontale. 

7000-7180 - Subroutine per la scelta, la 
visione e l'input della definizione verti¬ 
cale. 

15000-19400 - Data per i cruciverba ■ 


Listato 1 - Il programma Cruci Msx. 


10 CLStEVOFFCLEAR 3000 MAXFILES*i 60SU 
B 10880 

28 KEVGFFMM DO*>40):DIh DVS(40):DIM DI 
*<40>.MI1 D2»(40> : I> IM A$<40):BIN Ali<40) 
Mfl RV<40> HH R0<40> DUI Pl<40):DIH R2 
<.4è) : DIM k(40) Bill Kl< 48) 

38 LINE-; 0,0)-<255,192) . 1, BF: COLOR,1.1 LI 
NE'0.0>-<255,192),11, B 

40 PSET<60,88), 1 : CÙL0R4 PRINTil, "DREGOL 
E DEL GIOCO":PSET<68,100),1 C0L0R6:PRINT 
#1,*2)IL GIOCO" B*=” “ 

50 B» = lNKEVt H = VAL<BF) : IF M<1 X0R 102 TH 
EN 50 

60 Oh U 60SUB 1000,5000 
78 IF H = 1 THEN 30 
80 C0L0R15.4,4 
98 SCREEN8 kEVÙN 
100 END 

1080 LINE(0,0)-<255,192),1,BF 
1010 PSET<48,10),1:COLOR11 PRINTil,"Benv 
enuti a ",:C0L0R9:PRINTil,"CRUCI/MSX" 
1820 PSET<8,38>,1 COLORII PRINTil,"Scopo 
eli CRUCI/MSX è di -farvi divertire con 
uno dei 'ai echi eni •apistici pii belli 
:CGL0R5 PRINTilIL CRUCI- VERBA.“ 
1030 PSET < 8.78),1 : COLORII PRINTil,“All'i 
nterno del programma ve ne sono registra 
ti 3PSET<8,90),1 :PRINTil,"Dopo averne 
selezionato uno,vi verrà chiesto se vo 
lete una de- finizione orizzontale o ver 
ti- cale." 

1048 PSET<8,130),1 PRINTil,"Dopo avere d 
imitato il numero della definizione oh 
e volete. questa verrà visualizzata e 
pò- Irete scrivere la vostra rispo- sta. 

M 

1050 PSET<72,184),1 :C0L0R5 PRINTil,"BATT 

1 UN TASTO" BI = " " 

1060 B $ = I N K E V t IF Bl = ""THEN 1060 

1070 LIN E < 0,O)-(256,192),1,BF 

1080 PSET(88,10).1 C0L0R6 PR1NTil,"ATTEN 

2 IONE" PSET<8,30),1:COLORII PRINTil. “1)0 

uando digitate il numero »er scegliere 1 
a defmizione.se è inferiore a 10,dovr 
à essere di- gitato cosi 01,02,03 ec." 
1090 PSET*8.70) .1 :COLOR5 PRINTil,"2>S* s 
b a g 1 late a scrivere una definìzione,no 

n potrete correg- gerla subito,dovrete r 


ichiede- ria in un secondo momento." 
1100 PSET<8.HO),1 :C0L0R2:PRINTil,“3)Sia 
quando chiedete una defi- Dizione,eia g 
uando rispondete a guest ultimatatelo i 
n MAIUSCO- LO.« 

1110 PSET<8,158),1 C0L0R14 PRINTil, B 4)Md 
un certo punto vi sarà chiesto se v 

orrete continuare a giocare.Se non vorr* 
te,saprete le definizioni indovinate." 
1120 PSEU72,184) , 1 : COL0R5: PRINTil, “BATT 
I UN TASTO".B*="" 

1130 Bt=INKEV$.IF B$=""THEN 1130 
1140 RETURN 

5000 LINE<0.0)-<255,192),1,BF 
5010 PSET<70.88>,1 COLORII PRINTil,"1«CR 
IJCIVERBA 1" :PSET<70.100),1:COLOR9 PRINTi 
1."2 = CRUC:UERBA 2":PSET<70,120),1 :C0L0R4 
PRINTil."3=CRUCIVERBA 3" Bà=“" 

5028 PSET<70,160),1 :BJ = INKEV$:C0LÙR2 PRI 
NTil,"SCEGLI ";B* JK = VAL<B»): IF JK<1 XOR 
JK>3 THEN LINE<120,l60)-<255,170),1,BF: 
GOTO 5020 


5830 ON JK GOSUB 15000,17080,19000 
5040 LINE(0,0)-<255,l92).l,BF 
5850 PSET<52, 60) ,1 C0L0R5 PRINTil, "Vuo i 
le definizioni":C0L0R6:PSET(84,87),l:PRI 
NTil , "ORIZZONTALI": COLORII :PSET<124,104) 
,1 PRINTil,"0" C0LÙR2 PSET<91,121 ),1 PRI 
NTil “VERTICALI" 

5068 COLOR14 PSET<108,134),1 PRINTil,“<0 
/V)" B$ = “" 


5070 B*=INkEVJ IF B*=““THEN 5070 ELSE IF 
BS="0"THEN GOSUB 6000 ELSE IF B*<>"V"TH 
EN 5070 ELSE GOSUB 7000 
5100 LINE<0,O)-<255,192),1,BF 
5110 COLOR 6 

5120 LINE <24,24)-<39,154),,B 
5130 LINE <40,24)-<55,l54>,,B 
5140 LINE (56,24)-<71.154),,B 
5150 LINE <72.24)-<87,l54),,B 
5160 LINE <88,24)-<103,154>, , B 
5170 LINE <104.24)-<119,154>, ,B 
5130 LINE <l20,24)-<135,154),,B 
5190 LINE <136,24>-<151.154),,B 
5208 LINE <152,24)-(167,154),,B 
5210 LINE <168,24)-<183,154), ,B 
5220 LINE <184,24)-<199,154),,B 
5230 LINE <20Ò.24)-<215,154^, ,B 
5240 LINE <216 24>-<23l,154), B 
5258 PSET <24,34) 

5268 LINE -<23l,34> 
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Seguito listato Cruci Msx. 

5270 PSET <231,44) 

5280 LINE -<24.44) 

5240 PSET <24,54) 

5300 LINE -<231,54) 

5310 PSET <231,64) 

5320 LINE - < 24,64) 

5330 PSET <24,?4 r 
5340 LINE -<231,74) 

5350 PSET <231 84) 

5360 LINE -<24,80 
5370 PSET <24,94) 

5380 LINE -<231,94) 

5390 PSET <231,104) 

5400 LINE -<24.104) 

5418 PSET <24,114) 

5420 LINE -<231,114) 

5430 PSET <231,124) 

5440 LINE -<24.124) 

5450 PSET <24,134) 

5460 LINE -<231,134) 

5470 PSET <231,144) 

5480 LINE -<24,144) 

5435 IF JK = 2 THEN L I NE<24.84)-<39,94),6, 

8f LI NE <24,104)-09,114), 6, BF 

5490 FDP 1=1 TÙ 40 

5500 IF A*<I ) = “ M THEN 5540 

5510 P = I< + lA2* = niB*<A*<I),&,i)PSETvRV<l 

>,RO<I)),l:COL0R4:PRINTUÌ,02* 

5520 IF D=K<I)THEN 5530 ELSE IF IKK<I)TH 

EN RU <I)=RV<I)+16 :GOTO 5510 

5530 IF RV<I>>=222 ThEN 5540 ELSE RU<I)= 

RV<I)+9 RO<I) = RO<I)-2:LINE<RV<I),R0<I)>- 

<RV<I)+15,RO<I)+10>,6,BF 

5540 D=0 NEXT I 

5550 FOR 1=1 TU 40 

5560 IF A * <1)=""THEN 5590 

5570 IF RV<1)>=222 THEN 5580 ELSE RV<I)= 

RUvI)-9 RO<I)=R0>I)+2 

5580 T=16*<K<I)-1) RV<1)=RV<I)-T 

5590 T=0 NEXT I 

5600 FOR 1=1 TO 40 

5610 IF Al*<I)=""THEN 5650 

5620 P=D+1A3*=MIP*<A1*<I>,P,1>:PSET(R1< 

I),R2<I)),1-C0L0R4:PRINTUÌ,03* 

5630 IF D»Kl< DTHEN 5640 ELSE IF D<K1<I) 

THEN R2<I> = R2<1 )+10 GOTO 5620 

5640 IF* R2< I ) > = 146 THEN 5650 ELSE Rl<I>» 

R1<I)-6 R2<I)=R2<I)+8:LINE<R1<I),R2<I)>- 

<Rl<I)+15.R2<I)+10),6,BF 

5650 P = 0 NEXT I 

5660 FOR 1=1 TO 40 

5670 IF F»l*< I ) = '"'THEN 5700 

5680 IF R2<I ) > = 146 THEN 5690 ELSE R1<I)« 

Rl<I)+6 R2<I)=R2<I)-8 

5690 T=10*<K1<I)-l);R2<I)=R2<I)-T 

5700 T = 0 : NEXT 1 

5710 PSET<72,180), 1 COLORII : P R“I N T 41, "BAT 


TI IJN TOSTO'* 

5720 B*=INKEV*:IF B*=”"THEN 5720 

5730 TC=TC♦1:IF TC<XX THEN 5040 ELSE IF 

TC=XX ThEN XX = XX + 10 GO'O 5740 

5740 LINEO,0>-<255,192),1,BF 

5750 PSET<60,100) , 1 : COLORII : PRINTil,"Vuo 

i continuare ?" :C0L0R4:PSET<108,115),1 :P 

R I NT 41, ■ < S ✓ N ) " : B* = “ " 

5760 B*=INKEV* IF B*=“"THEN 5760 

5770 IF B*="S“THEN GOTO 5040 ELSE IF B*< 

>"N"THEN 5760 

5788 CC = 0 1>D«0 

5790 POP 1=1 TO 40 

5800 IF H*<i)®""THEN 5820 ELSE P=P+1 A2* 
= Mi P*.<A*< 1 ) , P, 1) : A3* = MI P*< PI* «. I ) , P , 1) 
5810 EEX = EEV.♦0SC<A2») FF5< = FF^+ASC<A3*) : I 
F P*K< I )ANP EE = F f THEN CC = CC + 1 P»0.EE5j = 0 
FFV. = 0:NEXT I ELSE IF I) < K < I ) THEN GOTO 58 
00 

5820 NEXT I 

5830 FOR 1=1 TO 40 

5840 IF A1 * <I) = “"THEN 5860 ELSE P = P + 102 
*=nIP*<Al*<I),B,l>A3*=MIP*<P2*<I>,P,l) 
5850 EEX = EE V . + ASC(A2*> FF* = FF*4 + ASC<A3») ■ I 
F ) = Kl<I)ANI> EE = FF THEN PP = PP*1 P*0 EE*4 = 
0:FFV.*0:NEX1 I ELSE IF D<K1<I)THEN GOTO 
5840 

5860 NEXT I 

5870 LINEO 0 ) - <255,192 ), 1, BF 

5880 PSET<8,40),1 : COLORII PRINT41,“Hai i 

ndov:nato"; C0L0R4.PRI NT il,CC PSET<8,55) 

, 1 : COLORII : PRINTil, "definizioni orizzont 
ali su", C0L0R4 PRINTil,AA 
5890 PSET<8 80),1 :C0L0R9:PRINTil,"e"; CO 
L0R2 PRINTil , Dì» C0L0R9 PSET < 8,95 ) , 1 PR I N 
Til, “def in i z i oni verticali su“;:C0L0R2 P 
R INT#1 BB 

5980 PSET<72,115),1OOLOR5:PRINTil,“BATT 
I UN TASTO" : B*="" 

5910 B*= INKEV* IF B* = ""THEN 5910 ELSE RE 
TURN 

6000 LINEO,0>-<255,192),1,BF 

6010 PSET<32.40),1 C0L0R2 PRINTil,"max d 

e -f orizzontali";AA 

6020 PSET<32,70),1COLOR6 PRINTil,“SCE6L 
I“ B* = ”" : NO* = “*:N*«“" :L = 0:J = 86:B»0 
6030 NÙ*= i NKEV*: i F NO* = ““THEN 6030 
6040 L = L + lEN(NÙJ) PSET<J,70),-l:PRINTil,N 

0 * 

6050 B*=B*+NO*:B=OAL<B»):IF L<2 THEN 606 
0 ELSE IF L=2 THEN 6080 
6060 J = J+6O0T0 6030 

6070 LINE<86.70)-<255.80),1.BF:GOTO 6020 

6080 N*=INKtV* IF N* = "“ THEN 6080 

6090 IF ASC < N*)=13 THEN 6100 

6100 IF B<0 XOR B=8 XOR B>Ah THEN 6070 E 

LSE 6110 

6110 LINEO,8>-<255,192),1,BF 

6120 PSET<8,10),l:CÙL0R9:PRINTil,B;"ORIZ 
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Seguilo listalo Cruci Max. 


ZONALE " PSET<8,30). 1 COLORII- PRINTil,D 

0$(B) FOK^ 1=1 TO 500 NEXT I 

6130 PSET(8,100).1 :C0L0R4:PRINTil,“Da ad 

esso Potrai scrivere quel- la che tu pen 

si sia la defini- zione giusta. n 

6140 A $ < B ) = " " 3$ = "" :L = 0 J = 8:X = 140 

6150 B$ = I NKtVs I F Bt=" 11 THEN 6150 

6160 C-L+ùEN<B$>:PSET<J,X>,1:COLORII:PRI 

NT#1,3* 

6170 A$<B)=A$<83H-B#: IF ASC<B$>=13 THEN R 
ETURN 

6130 J=0+6:1F J>256 THEN J*8:X=X+10 GOTO 
6150 ELSE 6150 

7006 LIHE(0.0)-<255,192),1.BF 

7610 PSET(52,40).1 COLOR10:PRINTI1,"pax 

def vert1cali";BB 

7020 PSET<52,70),1 C0L0R6 PRINTil,"SCE6L 
I » 3* = "" : N0S = " " :N*=" " : L = 0 J = 102 : B = 0 
7030 N0$=INKEV$:IF N0$=""THEN 7030 
7040 L=L+LEN<N0$) PSET<J,70),1:PRINTI1,N 
0 * 

705O B» = B*+N0* B=VAL(B*): IF L<2 THEN 706 
6 ELSE xF L = 2 THEN 7080 
7660 J = J + 6; GOTO 7030 

7670 LINE(102,70)-<255,80),1,BF:60T0 702 
0 

7080 N*=INKEV$:IF NI 2 *"THEN 7080 

7690 IF ASC (N$)=13 THEN 7100 

7100 IF B<6 XOR B = 0 XOR B>BB THEN 7070 E 

LSE 7110 

7110 LINE(0,6)-<255,192),1,BF 
7120 PSET(8,10),1;COLOR5:PRINTil,»;"VERT 
I CALE ":PSET<8,36),1 COLORII :PRINT#i,DV# 
,<B> FOR 1=1 TO 500 : NEXT I 
7130 PSET<8,100),l:COLOR2PRINT#l,“Da ad 
esso potrai scrivere quel- la che tu pen 
si sia la definì- zione giusta." 

71*0 Als< B> = ‘ * B*= “ * 1 = 0:J = 8:X = 140 
7150 B*= I NKEV$; IF B*="“THEN 7150 
7160 L=L+LEN(B*):PSET<J,X),1:COLORII:PRI 
NT»1,B* 

7170 AlS<B) = AlJ<B>*Bs : IF ASC<B*>=13 THEN 
RETURN 

7180 J = J + 6: IF J>256 THEN J = 8:X = X + 10 GOTO 
7150 ELSE 7158 
10000 COLOR,14.14 :SCREEN 2 
10610 DRAW "BM45,96BU96": DRAM "C1G10BU10 
BR10R30F10D10610U10BL10BU10F10BU10BL10L1 
0G10D10F10R20F10B20G10L40BU10BR10610BU10 
BR10R28BU10BR10G10BU10BR10U10L30BU10BL10 
F10BL16BU10U30": PAI NT<45,40>,1,1 
10020 DRAM “ 8M85.80" DRAM "C1U5R5D5L5" : P 
AI NT < 86 ,79)>1,1 

10036 DRAM “BM94.96BU96" DRAW “C1D10R10U 
10L16BD20D60R10U60L10" PAI NT<95,5>,1,1 : P 
A1NT<95,40),1,1 

10640 DRAW "BM107.80" DRAW "C1U5R5D5L5": 


PAINT(108,79),1,1 

10650 DRAW "BM115,9Ó8U96":DRAW "C1D80R40 
BIJ10BR10610BR10BU10L4 0U70L10" : PAI NT <117, 

48) ,1,1 

10060 DRAM "BM165,80": DRAM "C1U5R5D5L5": 
PAI NT <166,79),1,1 

10070 DRAM "BH173.96BU96": DRAM “C1BR1061 
0D60F10R30BU10BR10G10BR10BU10L30BU10BL10 

F10BL16BU10IJ40BU10BR10G10BR30BU10BR10L30 
BR30BU10Bl10Fi0BIJ10BL10L30" PAI NT <174,4 0 

y /1 > i. 

10080 DRAW "BH223,86": DRAM “C1U5R5D5L5" : 
PA INT< 224,79 ),1,1 

10096 LiNE < 38 82)-<98,99),2,BF:LINE<99,8 
2>-<159,99),15.BF;LI NE<160,82)-<221,99), 

6, BF 

10100 OPEN "GRP:" FOR OUTPUT AS #1 

10116 FOR SA*1 TO 1000000# 

10126 FOR SB*1 TO 15 

10130 FOR SC=0 TO 1 

10140 PSET(96,102): COLOR SB:PRINT #1,"PR 
ESENTA" 

10145 PSET<92,142),14 :PRINT#1,"CRUCI/USX 

II 

10150 PSET<72,184) PRINT #1,"Batti un ta 
sto" 

16160 A$=INK£Ys:IF AS = * U THEN 10170 ELSE 
RETURN 

10170 NEXT SC,SB,SA 
10186 RETURN 

15000 AA=31:BB=27XX=AA+BB:RESTORE 15030 
15010 FOR 1=1 TO 31 
15020 READ D0$< I ) 

15030 DATA II Bor.gusto noto cantante,Le 
lancette del 1 'orol 09 io,Iniz.di Dumas,Un 
prepotente signorotto.il periodo dei veg 
1 i on i 

15640 DATA Le gode chi è raccomandato.il 
noie di flanfredi,Viene fissato sulla si 
r inga,Fi anco,La retribuzione basata sul 
ren- dimento 

15050 DATA il principio di Eulero,Sono p 
ari... in corsa.Abbandonò Didone.il fil 
o dei pescatore,L'ultima nota 
15066 DATA L'autore di Nani,Co 1 orati art 
ificialmente,Grosse candele,L'autore de 
La oittadella.il cantore di Orlando 
15070 DATA La si rende a Dio,Hanno scars 
e cognizioni,Parma,Le vocali di molti,Un 
o dei continenti 

15080 DATA Non intossica chi ha la match 

e- ra,Una preposizione,Può diventare un 

poker,S'infilano nelle tasche,Cose da nu 

Ila.Scorre nella Ualcamonica 

15690 NEXT I 

15106 RESTORE 15130 

15110 FOR 1=1 TO 27 

15120 READ DVf < I ) 

15130 DATA La Bertini del cinema muto,So 
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Cruci Msx 



Seguito listato Cruci Max. 

no diplomati,Non gravato da imposte,Un f 
aiuto arabo, Il •frutto dell'orticaria 
15140 DATA 11 Biagi giornalista,Colpevol 
i,Le compiono i ginnasti,Appanna lo spec 
chio,Una particella nobiliare 
15158 DATA Nel odio e nel cranio,La par 
ità -farmaceutica,Risultano sulla pagella 
, Intestardirsi,Ingrèsso 

15160 DATA Pesano sul groppone,Fare... v 
ersi da cane,Una membrana dell'orecchio, 
Il calcio da undici metri,Sondrio 
15170 DATA Verdeggia nel deserto,L'ami co 
di Eurialo,Ritornano al l'alveare,Allegr 
i/briosi,Il centro di Vienna 
15188 DATA A te,Metro lineare 
15190 NEXT I 
15200 RESTORE 15230 
15210 FOR 1*1 TO 31 
15220 READ RV< I ),R0<I>,K<I),Dl*<I) 

15230 DATA 30,26,4,FRED,118,26,5,SFERE,2 
86,26,2,AD,30,36,3,RAS,94,36,9,CARNEVALE 
,30,46,12,AGEVOLAZIONI 

15240 DATA 30,56,4,NINO,110,56,3,AGO,174 
,56,4,LATO,38,66,7,COTTIMO,158,66,2,EU 
15250 DATA 206,66,2,OS,30,76,4,ENEA,126, 
76,5,LENZA,30,86,2,SI,78,86,4,ZOLA 
15260 DATA 158,86,5,T1 NT 1,30,96,4,CER1,1 

42.96.6, CRONIN,30,106,7,ARI OSTO,158,106, 
5,ANIMA 

15270 DATA 46,116,9,I GNORANTI,206,116,2, 
PR,62,126,2,OE,110,126,4,ASIA,190,126,3, 
GAS 

15280 DATA 30,136,3,PER,94,136,4,TRIS,17 
4,136,4,MANI,30,14 6,6,INE ZI E, 142,146,5,0 
GL 10 

15290 NEXT I 

15300 RESTORE 15330 

15310 FOR 1*1 TO 27 

15320 READ RI<I>,R2<I),Ki<I),D2*<I) 

15330 DATA 30,26,9,FRANCESCA,46,26,10,RA 
GIONI ERI,62,26,6,ESENTE,il0,26,5,SALAM,l 

26.26.7, FRAGOLA 

15340 DATA 142,26,4,ENZO,158,26,3,RE1,17 
4,26.10,EVOLUZIONI,206,26,5,AL ITO,222,26 
,2,DE 

15350 DATA 94,36,2,CO,190,36,3,ANA,78,46 
,9,VOTAZIONI,222,56,9,OSTINARSI,158,66,7 
,ENTRATA 

15360 DATA 190,76,4,ANN1,110,86,7,LATRAR 
E, 206,86,7,TIMPANO,62,96,6,RI GORE,94,106 

,2,SO 

15370 DATA 126,106,4,OASI,142,116,4,NISO 
,30,126,3,API,190,126,3,6AI,46,136,2,EN 
15380 DATA 94,136,2,T1,174,136,2,ML 
15398 NEXT I 
15400 RETURN 

17008 AA-25:BB=28:XX=AA*BB:REST0RE 17030 


17010 FOR 1*1 TO 25 
17820 READ DOS(I) 

17030 DATA Uno sport,Sorveg1ia un palazz 
o,Ve 1 ocissìme siluranti,Le cascatelle de 
ì -fiumi, Isti tuto Ricostruzione Indus¬ 
triale 

17040 DATA Liriche in versi,Si cimentano 
in gare,E'il tipico innamorato,Gira a p 
oppa,Era ora 

17050 DATA L'argento,Lo punisce l'arbitr 
o,Ecce 11entì,Conservano i testamenti,C'è 
quella dello scandalo 
17060 DATA Un mese -freddo,Un bel voto,Il 
popolare Pacìno.Chiarire con argomenti 
validi,La santa da Cascia 
17070 DATA I sostegni dei ciocchi nel ca 
- minetto,Quando piove permettono di ca 
m- minare nelle vie anche a chi non h 
a 1 'ombrello,Risonanza,Muore con Radames 
,11 nome di Nazzari 
17880 NEXT I 
17090 RESTORE 17120 
17100 FOR 1*1 TO 28 
17110 READ DV*<I> 

17120 DATA Lo si dice porgendo,Il portaf 
ortuna nel prato!,Scottate,Precede il Mi 
ssa est,Sono simili ai ravioli 
17130 DATA La Negri poetessa,L'u1tima le 
ttera,Una frittatina rìpiena,Napo 1 i, 1 ri 
sultati finali 

17140 DATA Osouri,Sono uguali in teatro! 
,Esegue pregevoli lavori d'ago,Par teeìpa 
no al voto,Ridotti in cattivo stato 
17150 DATA II fiume di Bottego,Piacevo1ì 
comodità,Cosi è la mosca che non se ne 
va'.Cosparsa di spine,Gradini di legno 
17160 DATA il giaciglio con le corde,La 
fine di Ivanhoe,Il più alto strumento a 
corda,Quando e stipato non si può sa- li 
rvi,Una preposizione 

17170 DATA In mezzo al lido.Iniz della D 

use,Le vocali nel conto 

17180 NEXT I 

17190 RESTORE 17220 

17280 FOR 1*1 TO 25 

17210 READ RV(I),RO(I),K(I),Dlt<I) 

17220 DATA 30,26.11.EQUITAZIONE,30,36,7, 
CUSTODE,158,36.3,MAS,30,46,9,CATARATTE,1 
98,46,3.IRI 

17230 DATA 38,56,3,ODI,126,56,6,ATLETI,4 
6,66,5,ROMEO,158,"66,5,ELICA,30,76,10,FIN 
ALMENTE 

17248 DATA 206,76,2,AG,46,86,5,FALLO,142 
,86,6,OTTIMI,30,96,5,NOTAI,126,96,6.PI ET 
R A 

17250 DATA 46,106,7,GENNAI0,174,106,4,OT 
TO . 38.116.2,AL,78,116,10,DIMOSTRARE,30,1 
26.4 .RIVA 

17268 DATA 110.126.5,ALAR I,30,136,7,PORT 
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Seguito listato Cruci Msx. 

ICI.190,136,3,ECO,62,146,4,AIDA,142,146, 

6 . AMEDEO 

1T270 NEXT I 

17280 RESTORE 17318 

17290 FOR 1=1 TO 28 

17300 READ R1(I),R2(I),K1(I),D2$(I> 

17310 DATA 30,26,4.ECCO,46,26,12,QUADRIF 
06LIO,62,26,9,USTIONATE,78,26,3,ITA,94,2 
6,10,TORTELLINI 

17328 DATA 110,26,3,ADA,126,26,4,ZETA,15 
8,26,8,OMELETTE,174,26,2,NA,190,26,5,ESI 
TI 

17330 DATA 222,26,3,8UI,142,46,2,TT,206, 
46,11,RICAMATRICE,174,56,8,ELETTORI,78,6 
6,9,MALANDATI 

17340 DATA 110,66,3,OMO,222,66,3,AGI,142 
,76,6, NO I OSA,190.86,4,IRTE,126,96,5,PIOL 
I 

17350 DATA 110.106.5,AMACA,222,106,2,OE, 
30,116,4,ARPA,158,116,4,TRAM,62,126,3,TR 
A 

17360 DATA 94,136,2,ID,190,136,2,ED,222, 

136,2,00 

17370 NEXT I 

17380 RETURN 

19000 AA = 38 : BB = 31:XX = AA + BB:RESTORE 19030 
19010 FOR 1=1 Tù 30 
19020 READ DO* < I ) 

19030 DATA Disaccordi di breve durata,Co 
P r e il cassone del camion,Un opera in ve 
rsi,Le monete spagnole,Un canto patriott 
i co 

19840 DATA II dente più aguzzo,Risonanza 
,Un apertura nel pavimento,Peri, 11 giorn 
o più breve 

19050 DATA Scorgere,Il terzo -Figlio di A 
damo,Accogliere in casa,Una virtù teolog 
ale,La indossa il meccanico 
19060 DATA Li invoca 1'esasperato,Si car 
ica sul basto,Il nome di Cimarosa.In nez 
zo,Quando decise di passare il Ru- bicon 
e disse*IL DADO è TRATTO* 

19070 DATA Istituto Regionale,Le vocali 
nel testo,Un animale da pelliccia,Si raf 
fronta a 11 ". .. a 1 tra , Formano la vigna 
19080 DATA II capoluogo della Stiria,Una 
distesa trai monti,Li... spennano certi 
imbroglio- ni,L / ippodromo dei napoletan 
i,Un locale sotto il tetto 
19090 NEXT I 
19100 RESTORE 19130 
19110 FOR 1=1 T0 31 
19120 READ DUI<I ) 

19130 DATA Lo usa il rosticciere,Un adun 
anza di cardina1i,Bagna Bonn,Il sangue n 
ei pre-fissi,La -fine della conferenza 
19140 DATA Un cantante come Pavarotti,Mi 


ngherlino,La gran voglia di lavorare,Il 
gigante fratello di Efialte,Il sodio 
19150 DATA Una stagione,Un Sandro della 
TV,La agita il cane,Segue l'alfa greca,6 
iovano ai malati 

19160 DATA E'dura per chi stenta,Si gett 
ano nei 6olchi,Il leone d'America,Corda, 
Corvina 

19170 DATA La vasta prateria russa,Non b 
asta mai!,Sono tutti salati,Il cavallo a 
mico di Topolino,Un tratto de 11 ' i ntest i n 
o 

19180 DATA La Uertmuller regista,Le lane 

ia chi è atterito,11... tifoso di una di 

va,Umilia il portiere,In mezzo.al rigo,A 

ttraversa il Piemonte 

19190 NEXT I 

19200 RESTORE 19230 

19210 FOR 1=1 TO 30 

19220 READ RV<I ),RO< I ),K(I ),DI*(I ) 

19230 DATA 39,26,6,SCREZI,142,26,6,TELON 
E,30,36,5,POEMA,126,36,7,PESETAS,30,46,4 
, INNO 

19240 DATA 110,46,6,CAN I NO,30,56,3,ECO,9 

4.56.6, BOTOLA,206,56,2,MA,30,66,2,DI 
19258 DATA 78,66,6,VEDERE,190,66,3,SET,3 
8,76.8,OSPITARE,174,76,4,FEDE,46,86,4,TU 
TA 

19260 DATA 158,86,4,NUM 1,30,96,4,SOMA,11 
0,96,8,DOMENICO,30,106,3,TRA,94,106,6,CE 
SARE 

19270 DATA 206,186,2,IR,30,116,2,EO,78,1 

16.6, LONTRA,190,116,3,UNA,62,126,6,FILAR 
I 

19280 DATA 174,126,4,GRAZ,30,136,7,PI ANO 

RO,158,136,5,POLLI,30,146,6,A6NANO, 142,1 

46,6,SOLAIO 

19290 NEXT I 

19300 RESTORE 19330 

19310 FOR 1=1 TO 31 

19320 READ R1 < I >, R2<I>,K1<I>,D2*< I > 

19330 DATA 38,26,6,SPIEDO,46,26,10,CONCI 
STORO,62,26,4,RENO,78,26,3,EMO,94,26,2,2 
A 

19340 DATA 142,26,6,TENORE,158,26,5,ESIL 
E,174,26,4,LENA,190,26,3,0T0,206,26,2,NA 
19350 DATA 222,26,6,ESTATE,126,36,11,PAT 
ERNOSTRO,110,46,4,CODA,94,56,4,BETA,206, 
56,10,MEDICINALI 

19360 DATA 78,66,4,VITA,198,66,4,SEM1,62 
,76,4,PUMA,174,76,4,FUNE,158,86,4,NERA 
19370 DATA 30,96,6,STEPPA,110,96,6,DENAR 
0,142,96,4,MAR 1,222,96,6,ORAZI0,94,106,5 
,COLON 

19380 DATA 73,116,4,LINA,190,116,4,URLA, 
62,126,3,FAN,174,126,3,GOL,46,136,2,18,1 
58,136,2,PO 
19390 NEXT I 
19400 RETURN 
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Un po’ d’ordine 
fra i nostri dati 

Alcuni algoritmi di sorting 
utili per ogni tipo di problema 

di Luca Za ni nello 


I computer si trovano molto spesso 
a elaborare grandi quantità di da¬ 
ti di ogni genere e ogni volta che 
l'elaboratore ha a che fare con 
archivi o raccolte di dati, è indispensa¬ 
bile poter reperire nel minor tempo pos¬ 
sibile tutte le informazioni desiderate. 
Per fare ciò è necessario che i dati siano 
in ordine o che si abbia la possibilità di 
ordinarli. 

Con il termine sorting viene indicato il 
problema deH'ordinamento all'Interno 
degli elaboratori elettronici. Si potreb¬ 
bero fare migliaia di esempi sull'impor¬ 
tanza di questa tema, ma ora vogliamo 
trattare alcuni algoritmi proposti per la 
soluzione del problema dell’ordinamen- 
to. Presenteremo alcune routine imple¬ 
mentate sul PB-700, che però possono 
essere facilmente adattate a ogni altro 
personal, cercando di farvi capire i vari 
metodi esaminati; per facilità useremo 
esempi numerici, fermo restando che gli 
ordinamenti si fanno su ogni tipo di en¬ 
tità (stringhe, record, file). 

Innanzitutto si deve distinguere tra in¬ 
ternai ed external sorting, dove, nel pri¬ 
mo caso, l'ordinamento avviene su ar- 
ray, in memoria centrale, nell'altro sui 
file (questa eventualità sì verifica ogni 
volta che i dati da ordinare non posso¬ 
no essere contenuti nella memoria del 
computer): noi ci occuperemo solo del- 
l'internal sorting anche se accennere¬ 
mo ai metodi che risolvono l'external. 


Ordinare n elementi a„ a ? , ...a n vuol dire 
poter riscrivere gli stessi elementi a k „ 
a^, ...a kn in modo tale che specificata 
una funzione d'ordinamento f siano ve¬ 
rificate le relazioni: f(a kl ) <f(a k2 ) 
<~<f(a kn ). 

Questi metodi si possono dividere in tre 
categorie: ordinamenti per inserzione, 
per selezione, per scambio. 

Le prime tecniche 

Il primo che esaminiamo è lo Straight 
insertion sort che funziona nel modo 
seguente: ci sono n elementi (nel nostro 
esempio otto numeri) scritti a caso; si 
confrontano i primi due e si scrivono 


nella sequenza corretta, quindi si passa 
al terzo e lo si inserisce nella giusta 
posizione con i due numeri precedenti e 
cosi si continua fino a raggiungere la 
fine della lista. Gli elementi ancora da 
collocare, cioè, vengono esaminati se¬ 
quenzialmente e inseriti nel posto giu¬ 
sto tra quelli già ordinati. La procedura 
che traduce questo algoritmo è quella 
delle linee 200-270. Per ogni algoritmo 
esistono degli indici di valutazione ba¬ 
sati sul numero di confronti da fare tra 
gli elementi e sul numero di spostamenti 
a cui tali elementi sono soggetti. Un 
confronto tra i vari metodi può essere 
fatto con la tabella 1. Esiste un altro 
metodo, discendente da quello appena 


Tabella 1 - Uno schemino In cui vengono confrontate le prestazioni dei vari metodi d'ordinamento. 
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Figura 1 - Ecco come vengono selezionati gli elementi nello Heapsort: gli 
elementi sono otto, ma il numero di cerchi è 15 (cioè 2n-1, 2 8-1). Qui 
vediamo le prime tre fasi. 



Figura 2 - Nella figura a) ci sono due heap ancora da ordinare; In b) sono 
stati ordinati (ogni figlio è maggiore di suo padre). In c) essi vengono 
congiunti e il numero minore migra verso il nodo radice, mentre tutti i suoi 
figli “crescono”, avanzando di una posizione. E cosi si va avanti confron¬ 
tando di volta in volta i due nodi sotto la radice, che sono maggiori dei 
rispettivi figli. 


presentato, che rende più veloce la ri¬ 
cerca del punto d'inserzione: l’ordina¬ 
mento per inserzione binaria. L'idea 
nuova è quella di ricercare il punto di 
inserimento attraverso una bisezione 
continua della lista degli elementi. La 
procedura che realizza ciò è nelle linee 
400-500. Rispetto all'inserzione diretta, 
si ha che i valori all'inizio vengono loca¬ 
lizzati più in fretta, ma nel caso di sor- 
ting su elementi già ordinati, questo me¬ 
todo è peggiore del precedente (ovvia¬ 
mente questo caso è abbastanza raro). 

I metodi d'inserzione obbligano a degli 
shift (spostamenti) per fare posto col 
primo. Quindi si ripete quest’operazione 
per i restanti n -1 elementi fino a quan¬ 
do non si arriva all'ultimo confronto tra 
gli ultimi due numeri. La sequenza a cui 
si è arrivati è ordinata in modo crescen¬ 
te. Questo metodo è quasi opposto al 
primo il quale considera in ogni passata 
soltanto l'elemento successivo della se¬ 
quenza sorgente e tutti quelli della se¬ 
quenza di destinazione per trovare il 
punto d'inserzione: qui si considerano 
tutti i numeri della fila sorgente per tro¬ 
vare il minore e depositarlo nel primo 
posto disponibile della sequenza di de¬ 
stinazione. 

La routine per questo algoritmo è alle 
righe 600-680. 


Il quarto metodo che vediamo è caratte¬ 
rizzato dal confronto e scambio di due 
elementi; l'algoritmo viene chiamato 
Straight exchange sort, ma è meglio no¬ 
to col nome di Bubblesort. Con questa 
denominazione si vuol dare l’idea che 
gli elementi più leggeri (di valore mino¬ 
re) salgono in superficie (ovvero s’avvi¬ 
cinano alla loro giusta posizione per 
andare in seguito a occuparla). La 
comprensione di quest'algoritmo è mol¬ 
to semplice e diciamo anche importante 
perché si presta a notevoli miglioramen¬ 
ti. Uno di questi è dato dal ricordare se 
si è avuto uno scambio durante una 
passata; ma questo algoritmo deve fare 
comunque n-1 passate (linea 800). Cer¬ 
chiamo allora di ricordare la posizione 
dell'ultimo scambio: ma non è finita. Si 
può migliorare ancora guardando non 
solo in un verso della passata, ma an¬ 
che nell’altro. Il frutto di tutti questi ra¬ 
gionamenti si concretizza nell'algoritmo 
di Shakersort che come potete facil¬ 
mente notare non è altro che il Bubble¬ 
sort applicato due volte (linee 1000- 
1100). 

Qualcosa di più avanzato 

Gli algoritmi appena visti non sono i 
più sofisticati, anche se con pochi ele¬ 


menti funzionano molto bene; passia¬ 
mo allora all'esame di due modelli evo¬ 
luti che, nel caso di grosse quantità di 
dati, sono i più veloci e utilizzati. Il primo 
metodo è l’Heapsort: esso nasce dal 
metodo di selezione del quale rappre¬ 
senta un notevole miglioramento. 

Anche in questo caso si tratta di tenere 
più informazioni possibili da ogni con¬ 
fronto tra elementi, non solo quindi ri¬ 
guardo all'ultimo. A partire dalla se¬ 
quenza data, si crea una struttura a 
albero in cui ogni nodo è minore o u- 
guale ai suoi nodi figli: è una specie di 
graduatoria parziale. Il nodo padre (la 
radice) conterrà l’elemento più piccolo 
di tutti: la fase successiva consisterà 
nell'eliminare tale elemento sostituen¬ 
dolo con il minore tra i rimasti, come 
mostrato nella figura 1. 

La fase più complessa è quella iniziale 
in cui si fa in modo di usare un array di n 
elementi anziché uno di 2n-1 elementi. 
Uno heap si può costituire con due sot- 
toheap congiungendoli con un elemen¬ 
to che viene poi fatto migrare attraverso 
degli scambi verso l’elemento minore 
(figura 2). Da come è stato scritto il pro¬ 
gramma potrebbe sembrare che tale 
metodo non sia poi tanto veloce, ma in 
realtà non è così, sia perché l'istruzione 
di stampa occupa del tempo (e nel pro- 
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gramma viene eseguita più spesso du¬ 
rante l'Heapsort che negli altri algorit¬ 
mi), sia perché i metodi evoluti sono 
efficaci soprattutto con tanti elementi. 
L’ultimo modello che presentiamo è il 
più veloce, come si capisce anche dal 
nome: il Quicksort. 

Analizziamo il motivo di questa sua ca¬ 
ratteristica: gli scambi fra elementi van¬ 
no effettuati tra lunghe distanze in mo¬ 
do da aver maggiore effetto (è quindi un 
miglioramento del Bubblesort). L'algo¬ 
ritmo funzionerà quindi cosi: 

• si sceglie un elmento con indice K (il 
pivot); 

• si divide l'array in due parti: S = {a[1], 

.... a[K — 1 ]} e D = {a[K +1].a[n]> in 

modo tale che ogni elemento di S sia 
minore o uguale ad a[K] e che ogni 
elemento di D sia maggiore ad a(k); 

• si ripetono i primi due passi applican¬ 
doli a S e D fino a quando si arriva a un 


ordinamento totale. 

La scelta del pivot influisce molto sul 
risultato finale; nel programma è stato 
scelto ogni volta nel punto medio della 
sequenza da esaminare 

(x = [int( 1 + z)/2)). Anche in questo caso 
i risultati migliori si ottengono con molti 
elementi da ordinare. 

Il problema 

dell’ordinamento esterno 

Abbiamo parlato anche di external 
sorting che è la tecnica di ordinamento 
di dati residenti su file: essa differisce 
dairinternal sorting perché qui si può 
accedere, di solito, a un piccolo numero 
di elementi per volta. Inoltre ci sono dei 
vincoli legati alle operazioni di 
input/output da e verso file che bisogna 
minimizzare per rendere massima l'effi¬ 


cienza; infine si può operare solo su 
elementi contigui. In questi casi la tecni¬ 
ca di ordinamento più diffusa è quella 
del merging: essa consiste nella combi¬ 
nazione di sequenze ordinate in un'uni¬ 
ca sequenza attraverso delle scelte ri¬ 
petute fra le componenti accessibili. An¬ 
che qui ci sono diversi algoritmi risoluti¬ 
vi: a esempio nello Straight merging, u- 
no dei più semplici, si suddivide la se¬ 
quenza in due metà, poi si fondono 
queste combinando elementi singoli in 
coppie e allineandoli in una nuova sin¬ 
gola sequenza. Si prosegue, quindi, bi¬ 
secando ancora la nuova sequenza ot¬ 
tenuta, combinando però le coppie in 
quadruple, e si va così avanti finché la 
sequenza non è del tutto ordinata. Oltre 
a questa tecnica ve ne sono altre come 
il Balanced merging, il Naturai merging, 
il Multivay merging che però citiamo sol¬ 
tanto per completezza. 


Figura 3 - Un esemplo di ordinamento con meno di dieci 
numeri. 


Figura 5 - Il numero massimo di elementi che II programma può ordinare (... e qui il 
Quicksort comincia a tarla da padrone). 
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Figura 4 • Ecco allre tre tecniche di sortlng. 
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Com’è strutturato 
il programma 

Abbiamo voluto illustrare le principali 
tecniche d’ordinamento e abbiamo 
pensato sia ai possessori del plotter che 
a quelli che ne sono privi. Cosicché se 
potete e volete usufruire della possibili¬ 
tà di stampare le varie fasi dell'ordina- 
mento, vi verrà data anche la facoltà di 
scegliere il numero di elementi da ordi¬ 
nare. Alle linee 4000-4010 ci sono i primi 
numeri di partenza per essere ordinati: 
ciò è stato pensato sia per evitare all'u¬ 
tente di digitare fino a 25 numeri, sia 
perché i primi otto numeri riescono a 
essere scritti tutti in una linea del display 
del PB-700 (questo perde valore poi con 
l'uso del plotter). 

Una volta che scegliete il modello di 
ordinamento da adoperare vi verrà pri¬ 
ma visualizzato il suo nome sul video 
(linea 145), poi la sequenza di numeri di 
partenza. Ogni algoritmo ha bisogno di 
un certo numero di passate per arrivare 
all'ordinamento completo: ebbene il 
programma visualizza la situazione do¬ 
po ogni passata. Inoltre, dato che dopo 
tre passate i numeri sulla riga superiore 
iniziano a scomparire, si ha la possibili¬ 
tà di fermare lo scrolling semplicemente 
premendo un tasto (riga 2010). Da que¬ 
sto scoprirete una cosa interessante sui 
primi quattro metodi che non vi antici¬ 
piamo. Quando l'ordinamento è com¬ 
pletato potete anche provare un altro 
metodo e tutto riprende da capo. Se 
non avete il plotter saranno ancora 
quegli otto numeri a girare (Gosub ST- 
200, quindi Gosub 1800, riga 185) altri¬ 
menti sarà il Casio a generarli a caso in 
un range da 0 a 99. 

Per quanto riguarda la stampa su car¬ 
ta si fa anche uso dei colori (blu e rosso) 
per stampare la sequenza iniziale e il 
nome dell'algoritmo usato, al termine 
dell'ordinamento. 

E con questo caso abbiamo proprio ter¬ 
minato; non vi resta che digitare il pro¬ 
gramma che speriamo possa aiutarvi 
nelle vostre applicazioni che hanno a 
che fare con ordinamenti di dati per 
scegliere l'algoritmo più adatto in un 
particolare problema. ■ 
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Listato 1 - Il programma In esame: le routine per ogni algoritmo 
sono ben evidenziate. 

1 DATAI>Straisht inserìiom2>Binary 
insertion,3>Stralsht seleclion 

2 DAT A4 >Bubblesorli5>Sha kersort,6>He 
apsort> 7>Quicksori 

3 CLS :CLEAR :DIM M$(7)*20 

4 FOR 1=1 TO 7:READ MS<I):NEXT I 

5 PRINT "Usi il plot ter ?":ST=2000:N 

=8 

10 ZS=INKEY$:1F ZSO"N" THEN 1F Z$< >" 
S" THEN 10 

15 IF Z$="N" THEN 45 ELSE LPRINT CHRS 
< 28 > ! CHRS (37):DM=1 : ST=3000 

20 PRINT :PRINT " < 8-25 > 

il • 

f 

25 LOCATE 0 1 1 : INPUT "Quanti numeri uu 
oi " • N 

30 1F N<8 THEN N=8 ELSE IF N>25 THEN 
N=25 

35 IF N< 10 THEN Df1=2 
37 IF N>13 THEN DM=0 
40 LPRINT "S"iDri 

45 CLS :DRALK0,0)-<159,0)-(159,31)-<0 
.31)-<0,1) 

50 DRALK3.3)-(156,3)-(156,28)-(3.28)- 
(3,4) 

55 DRALK 1,1)-(3» 3):DRALK 158,1>-<156,3 
): DRALK 158,30)-<156,28):DRALK 1,30)-<3,28 
) 

60 LOCATE 5,1 .'PRINT "Algoritmi" 

65 LOCATE 4,2:PRINT "di Sortine" 

70 Diti A(N),B<N),C(N*2) 

75 FOR 1=1 TO N:READ A(I):NEXT 1 
80 BEEP :BEEP 1 
85 IF INKEY$="" THEN 85 
90 CLS :PRINT "Scegli quale metodo di 
ordinamento vuoi" 

95 PRINT "usare tra quelli cheti most 
rero":CHRS(96): 

100 IF INKEY$="" THEN 100 
105 CLS :DRALK 154,31>-<159»31>-<159,26 
):DRALK 159,30)-<150,26) 

110 FOR 1=1 TO 7 

115 LOCATE 0,I-1-INT<I/5>*4:PRINT n$(I 

); 

120 IF 1=4 THEN IF INKEY$="" THEN 120 
ELSE CLS 

125 NEXT I : LOCATE 0,3:PRINT "0>elenco 
a 1goritmi”: 

130 Z$=INKEYS:C=ASC(Z$):IF C<48 THEN 1 
30 


135 IF 055 THEN 130 
140 C=C-48:IF C=0 THEN 105 ELSE CLS 
145 PRINT N$(C>:FOR 1=0 TO 99:NEXT I :C 
LS 

150 GOSUB 2000 

160 DRALK0,0)-<0,?)-<l59,7)-<159,0) 

165 IF ST=3000 THEN LPRINT "Jl":GOSUB 
3000:LPRINT "J0" 

170 GOSUB 200*C:IF ST=3000 THEN GOSUB 
1900 

175 BEEP 1 .'PRINT "Altro metodo ?",' 

180 ZS=INKEYS: IF ZS="N" THEN END ELSE 
IF ZSO"S" THEN 180 
185 BEEP :BEEP :GOSUB ST-200 
190 GOTO 105 

195 REM*********************** 

196 REM 

197 REN Straight insertion 

198 REM 

199 REM*********************** 

200 FOR 1=2 TO N 

210 X=A< I ).'A<0)=X: J= I-1 
220 IF X<A< J) THEN A(J+1)=A(J):J=J—1 :G 
OTO 220 

230 A(J+l>=X 
240 GOSUB ST 
250 NEXT I 
260 RETURN 

395 REM*********************** 

396 REM 

397 REM Binary insertion 

398 REM 

399 REM*********************** 

400 FOR 1=2 TO N 
410 X=A<I):L=1 :R=I-1 
420 IF L >R THEN 450 
430 M=INT<<L+R>/2) 

440 IF X<A(M) THEN R=M-1 ELSE L=M+1 
445 GOTO 420 

450 FOR J=I-1 TO L STEP -1 
460 A<J+1)=A(J):NEXT J 
470 A(L)=X:GOSUB ST 
480 NEXT I 
490 RETURN 

595 REM*********************** 

596 REM 

597 REM Straight selection 

598 REM 

599 REM*********************** 

600 FOR 1=1 TO N-l 
610 K=I:X=A<I) 

620 FOR J=I+1 TO N 

630 IF A( J XX THEN K=J:X=A(J) 
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Un po' d’ordine fra i nostri dall 


CASIO PB-100-200-300 


Seguilo listato 1 

640 NEXT J 

650 AOO=AC I>:A(I>=X 
655 GOSUB ST 
660 NEXT I 
670 RETURN 

795 REM*********************** 

796 REM 

797 REM Bubblesort 

798 REM 

799 REM*********************** 

800 FOR 1=2 TO N 

810 FOR J=N T0 1 STEP -1 
820 IF AC J- 1 ) >AC J > THEN X=ACJ-l):ACJ-1 
)=ACJ):ACJ)=X 
830 NEXT J 
840 GOSUB ST 
850 NEXT I 
860 RETURN 

995 REM*********************** 

996 RE(1 

997 REM Shakersort 

998 REM 

999 REM*********************** 

1000 L=2:R=N:K=N 

1010 FOR I=R TO L STEP -i 
1020 1F AC I- 1 >>ACI) THEN X=AC1-1): AC 1-1 
)=ACI>: AC I)=X:K=I 
1030 NEXT I 
1040 L=K+1 
1050 FOR I=L TO R 

1060 IF ACI-1)>ACI> THEN X=AC1-1): AC 1-1 
)=ACI): AC I)=X:K=I 
1070 NEXT I 
1080 R=K-l:GOSUB ST 
1090 IF L<=R THEN 1010 
1100 RETURN 

1195 REM*********************** 

1196 REM 

1197 REM Heapsort 

1198 REM 

1199 REM*********************** 

1200 L=INTCN/2)+l:R=N 

1210 IF L >1 THEN L=L-l:GOSUB 1300:GOTO 
1210 

1220 IF R>1 THEN X=AC1):A<1)=A(R):A(R) = 
X:R=R-l:GOSUB 1300:GOSUB ST:GOTO 1220 
1230 FOR U=1 T0 N:BCU)=ACN+1-U):NEXT U 
1240 FOR U=1 TO N:ACU)=B(U):NEXT U 
1250 GOSUB ST 
1260 RETURN 
1300 I=L:J=2*I:X=ACI) 


1310 IF J>R THEN 1360 

1320 IF J<R THEN IF A(J)>A(J+1) THEN J= 
J+l 

1330 IF A(I><=A< J) THEN 1360 
1340 X=ACI):ACI)=ACJ):ACJ)=X:I=J:J=2*I 
1350 GOTO 1310 
1360 RETURN 

1395 REM*********************** 

1396 REM 

1397 REM Qulcksort 

1398 REM 

1399 REM*********************** 

1400 S=l:B(l)=l:C(l)=N 
1410 L=BCS):R=CCS):S=S-1 

1420 I=L: J=R: X=A< INTC (L+R)/ / 2) ) 

1430 IF ACIXX THEN I=I+1:G0T0 1430 
1440 IF A< J > >X THEN J=J-1:G0T0 1440 
1450 IF I=<J THEN U=ACI): AC I)=A<J):A<J> 
=U:1 = 1 + 1 :J=J-1 
1460 IF I< = J THEN 1430 
1470 IF I<R THEN S=S+1:BCS)=I:CCS)=R 
1480 R=J 

1490 IF L<R THEN 1420 

1500 GOSUB ST 

1510 IF SO0 THEN 1410 

1520 RETURN 

1800 K=N 

1810 FOR 1=1 TO N 
1820 X=I NT C RND*K) +1 
1830 BCI)=ACX):ACX)=ACK) 

1840 K=K-1 
1850 NEXT I 

1860 FOR 1=1 TO N:ACI)=BCI):NEXT I 
1870 RETURN 

1900 LPRINT " J3“:LPRINT "F ,, ;2-DM:LPRINT 
"S2" 

1910 LPRINT "P":RIGHT$CM$CC> »LENCMJCC)) 
- 2 ) 

1920 LPRINT "J0":LPRINT "S”:0M 
1930 LPRINT "H":LPRINT M F2 M 
2000 FOR U=1 TO N:PRINT ACU);:NEXT U:PR 
INT 

2010 IF INKEY$< >"" THEN 2010 ELSE RETUR 
N 

2800 FOR 1 = 1 TO N:AC I) = INTCRND*100):NEX 
T I 

2810 RETURN 

3000 FOR U=1 TO N:LPRINT "P”;ACU):NEXT 
U: LPRINT "H'^LPRINT "F1 " : RETURN 
4000 DATA9)17»4,7,40,5.2.29.35»21.82»16 
,72 

4010 DATAI9,22» 56,87» 47,92,15,66,97,65, 
49,31 
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APPLE II 


P ubblichiamo la seconda parte 
di Tappeto mobile: dopo aver 
presentato il programma in 
Basic, riportiamo qui le shape 
per la visualizzazione dei caratteri. 

I simboli che vengono così creati sono 
quelli che compariranno nei settori del¬ 
lo schermo usati per il gioco. Ricordia¬ 
mo che il listato in Basic e le spiegazioni 
del gioco sono comparse nel numero 35 
di Personal Software ■ 

(Fine) 

(La precedente puntata è apparsa sul n. 35) 


Tappeto mobile 

Completiamo il programma 
con la pubblicazione delle shape 

di Ugo Rossini Parte seconda 


Listalo 1 

- Il programma Tappeto mobile. 

404D- 

2D 0D 

0D 

AND 

$0D0D 

4098- 

49 

0D 


EOR 

«$0D 





4050- 

2D 0D 

18 

AND 

$1 80D 

409A- 

4D 

09 

D8 

EOR 

$D809 





4053- 

DF 


77? 


409D- 

DB 



77? 






4054- 

3B 


77? 


409E- 

FB 



77? 


4000- 

19 01 34 

ORA 

$3401 y Y 

4055- 

FF 


77? 


409F- 

DB 



77? 


4003- 

00 

BRK 


4056- 

tB 


77? 


40A0- 

03 



77? 


4004- 

89 

77? 


4057- 

07 


77? 


40A1 — 

48 



PHA 


4005- 

00 

BRK 


4058- 

68 


PLA 


40A2— 

2D 

0D 

0D 

AND 

$0D0D 

4006- 

DE 00 4B 

DEC 

$4B00,X 

4059- 

49 49 


EOR 

#$49 

40A5- 

2D 

0D 

18 

AND 

$180D 

4009- 

01 Al 

ORA 

($A1,X> 

405B- 

49 21 


EOR 

#$21 

40A8— 

DF 



777 


400B- 

01 12 

ORA 

($12,X) 

405D- 

DF 


77? 


40A9- 

3B 



77? 


400D- 

02 

77? 


405E- 

DB 


77? 


40AA- 

FF 



77? 


400E- 

5E 02 D6 

LSR 

$D602,X 

405F- 

DB 


??? 


40A8— 

1B 



77? 


4011- 

02 

77? 


4060- 

DB 


77? 


40AC— 

07 



777 


4012- 

4A 

LSR 


4061- 

6C 49 

49 

JMP 

($4949) 

40AD- 

68 



PLA 


4013- 

03 

77? 


4064- 

49 E1 


EOR 

#$E1 

40AE- 

49 

49 


EOR 

#$49 

4014- 

C0 03 

CPY 

#$03 

4066- 

DF 


77? 


40B0- 

49 

21 


EOR 

tt$21 

4016- 

39 04 AD 

AND 

$AD04,Y 

4067- 

DB 


77? 


40B2- 

DF 



??? 


4019- 

04 

77? 


4068- 

DB 


??? 


40B3- 

DB 



??? 


401A- 

23 

777 


4069- 

3B 


77? 


40B4- 

DB 



77? 


401B- 

05 99 

ORA 

$99 

406A- 

08 


PHP 


40B5- 

DB 



77? 


401D— 

05 2B 

ORA 

$2B 

406B- 

4D 49 

49 

EOR 

$4949 

40B6- 

6C 

49 

49 

JMP 

($4949) 

401F- 

06 89 

ASL 

$89 

406E- 

29 D8 


AND 

#$D8 

40B9- 

49 

E1 


EOR 

#$E1 

4021- 

06 EF 

ASL 

$EF 

4070- 

DF 


77? 


40BB- 

DF 



77? 


4023- 

06 53 

ASL 

$53 

4071- 

DB 


77? 


40BC- 

DF 



77? 


4025- 

07 

77? 


4072- 

1B 


77? 


40BD- 

FB 



77? 


4026- 

DI 07 

CMP 

($07),Y 

4073- 

1F 


77? 


40BE- 

3B 



77? 


4028- 

39 08 99 

AND 

$9908,Y 

4074- 

48 


PHA 


40BF- 

48 



PHA 


402B— 

08 

PHP 


4075- 

69 49 


ADC 

#$49 

40C0- 

6D 

49 

29 

ADC 

$2949 

402C- 

DB 

CLD 


4077- 

69 01 


ADC 

#$01 

40C3- 

0D 

D8 

FB 

ORA 

SFBD8 

402D— 

08 

pMp 


4079- 

D8 


CLD 


40C6- 

DB 



77? 


402E- 

F6 08 

INC 

$08, X 

407A- 

1B 


77? 


40C7- 

FB 



77? 


4030- 

40 

RTI 


407B- 

DF 


77? 


40C8- 

03 



77? 


4031- 

40 

RTI 


407C- 

FB 


77? 


40C9— 

48 



PHA 


4032- 

00 

BRK 


407D- 

1B 


77? 


40CA— 

69 

49 


ADC 

#$49 

4033- 

00 

BRK 


407E- 

48 


PHA 


40CC- 

69 

01 


ADC 

#$01 

4034- 

DB 

77? 


407F- 

49 0D 


EOR 

#$0D 

40CE- 

DO 



CLD 


4035- 

DB 

77? 


4081- 

4D 09 

D8 

EOR 

$D809 

40CF- 

FB 



77? 


4036- 

92 

77? 


4084- 

DB 


77? 


40D0- 

DB 



77? 


4337- 

92 

777 


4085- 

FB 


77? 


40D1- 

FB 



77? 


4038- 

52 

77? 


4086- 

DB 


77? 


40D2- 

03 



77? 


4039- 

49 29 

EOR 

#$29 

4087- 

03 


77? 


40D3- 

48 



PHA 


403B- 

6D 49 DB 

ADC 

$D849 

4088- 

00 


BRK 


40D4- 

09 

4D 


ORA 

#$4D 

403E- 

DB 

77? 


4089- 

DB 


77? 


40D6- 

69 

09 


ADC 

#$09 

403F- 

1F 

77? 


408A- 

DB 


77? 


40D8- 

D8 



CLD 


4040- 

DF 

777 


408B- 

92 


77? 


40D9- 

DB 



77? 


4041- 

1B 

777 


408C- 

92 


77? 


40DA- 

3F 



77? 


4042- 

48 

PHA 


408D- 

52 


77? 


40DB- 

DF 



77? 


4043- 

49 0D 

EOR 

#$0D 

40BE- 

49 29 


EOR 

#$29 

40DC- 

1B 



??? 


4045- 

4D 09 DB 

EOR 

$D809 

4090- 

6D 49 

D8 

ADC 

$D849 

40DD- 

00 



BRK 


4048- 

DB 

777 


4093- 

DB 


777 


40DE- 

DB 



77? 


4049- 

FB 

77? 


4094- 

1F 


77? 


. 40DF- 

DB 



77? 


404A- 

DB 

777 


4095- 

DF 


77? 


40E0- 

9B 



77? 


404B— 

03 

777 


4096- 

1B 


77? 


40E1 — 

92 



77? 


404C— 

48 

PHA 


4097- 

48 


PHA 


40E2- 

92 



77? 
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Seguito listato Tappeto mobile. 


4145- 

FF 

77? 


41A2- 

DB 



77? 






4146- 

DB 

77? 


41 A3— 

9B 



77? 






4147- 

3B 

77? 


41A4- 

92 



77? 






4148- 

FF 

77? 


41A5- 

92 



77? 


40F.3- 

4A 

LSR 


4149- 

03 

77? 


41A6— 

4A 



LSR 


40E4- 

49 49 

EOR 

#*49 

414A- 

00 

BRK 


41A7- 

2D 

4D 

49 

AND 

*494D 

40E6- 

4D 49 09 

EOR 

#0949 

414B— 

DB 

77? 


41AA- 

49 

49 


EOR 

#*49 

40E9- 

D8 

CLD 


414C- 

DB 

77? 


41AC- 

DB 



CLD 


40EA- 

DB 

??? 


414D— 

93 

77? 


41AD— 

3F 



77? 


40EB- 

3B 

??? 


414E- 

92 

777 


41AE- 

DF 



77? 


40EC- 

1F 

7?? 


414F — 

52 

77? 


41AF- 

DB 



77? 


40ED- 

FF 

??? 


4150- 

49 49 

EOR 

#*49 

41B0- 

3B 



?2? 


40EE- 

DB 

??? 


4152- 

4D 49 01 

EOR 

*0149 

41B1- 

3F 



77? 


40EF- 

03 

??? 


4155- 

DB 

CLD 


41B2— 

3F 



777 


40F0- 

4B 

PHA 


4156- 

DB 

777 


41B3— 

28 



PLP 


40F1- 

49 4D 

EOR 

#*4D 

4157- 

FB 

77? 


41B4- 

2D 

2D 

6D 

AND 

*6D2D 

40F3- 

49 4D 

EOR 

#*4D 

4158- 

DF 

77? 


41B7— 

49 

2D 


EOR 

#*2D 

40F5- 

09 D8 

ORA 

#*D8 

4159- 

DB 

77? 


41B9— 

2D 

05 

38 

AND 

*3805 

40F7- 

1B 

??? 


415A- 

48 

PHA 


41BC— 

3F 



777 


40F8- 

DF 

77? 


415B- 

49 4D 

EOR 

##4D 

41BD- 

3F 



77? 


40F9- 

DB 

77? 


415D- 

69 49 

ADC 

#*49 

41BE- 

FF 



77? 


40FA- 

1B 

77? 


415F- 

D8 

CLD 


41BF- 

1B 



77? 


40FB- 

DF 

77? 


4160- 

1B 

77? 


41C0— 

3F 



777 


40FC- 

03 

77? 


4161- 

DF 

77? 

• 

41C1 — 

3F 



777 


40FD- 

48 

PHA 


4162- 

DB 

77? 


41C2— 

3F 



77? 


40FE- 

69 49 

ADC 

##49 

4163- 

DF 

77? 


41C3- 

0C 



77? 


4100- 

49 09 

EOR 

##09 

4164- 

03 

77? 


41C4- 

2D 

2D 

6D 

AND 

S6D2D 

4102- 

4D D8 DF 

EOR 

#DFD8 

4165- 

48 

PHA 


41C7- 

09 

2D 


ORA 

#*2D 

4105- 

DB 

77? 


4166- 

69 49 

ADC 

#*49 

41C9- 

2D 

2D 

1C 

AND 

*1C2D 

4106- 

DB 

77? 


4168- 

49 4D 

EOR 

#*4D 

4 ICC — 

3F 



77? 


4107- 

DB 

77? 


416A- 

D8 

CLD 


41CD- 

3F 



77? 


4108- 

1F 

77? 


416B— 

DF 

777 


41CE— 

DF 



77? 


4109- 

08 

PHP 


416C— 

DB 

77? 


41CF- 

DB 



77? 


410A- 

4D 49 49 

EOR 

#4949 

416D- 

DB 

777 


41D0- 

3F 



77? 


410D- 

49 09 

EOR 

##09 

416E- 

FB 

77? 


41D1- 

FF 



77? 


410F- 

05 18 

ORA 

#18 

416F- 

08 

PHP 


41D2- 

48 



PHA 


4111 — 

DF 

77? 


4170- 

4D 49 49 

EOR 

*4949 

41D3- 

49 

69 


EOR 

#*69 

4112- 

DB 

77? 


4173— 

49 05 

EOR 

#*05 

41D5- 

49 

29 


EOR 

#*29 

4113- 

DB 

77? 


4175- 

F8 

SED 


41D7- 

6D 

DB 

1B 

ADC 

* 1BD8 

4114- 

DB 

77? 


4176- 

DB 

77? 


41DA— 

DF 



77? 


4115- 

1B 

77? 


4177- 

DB 

77? 


41DB- 

DB 



77? 


4116- 

07 

77? 


4178- 

DB 

77? 


41DC- 

DF 



77? 


4117- 

68 

PLA 


4179- 

DB 

77? 


41DD- 

DB 



77? 


41 18- 

49 49 

EOR 

#*49 

417A- 

0C 

777 


4 IDE— 

48 



PHA 


41 1A- 

49 49 

EOR 

#*49 

417B- 

4D 49 49 

EOR 

#4949 

41DF- 

49 

09 


EOR 

#*09 

411C — 

09 FC 

ORA 

#*FC 

417E- 

49 05 

EOR 

#*05 

41E1- 

4D 

69 

49 

EOR 

*4969 

41 lE- 

DB 

77? 


4180- 

D8 

CLD 


41E4- 

DB 



CLD 


41 1F- 

DB 

77? 


4181 — 

DF 

77? 


41E5- 

DB 



77? 


4120- 

DB 

77? 


4182- 

DB 

77? 


41E6— 

FB 



777 


4121- 

DB 

77? 


4183- 

DB 

777 


41E7— 

FB 



777 


4122- 

1B 

77? 


4184- 

FB 

777 


41E8- 

DB 



777 


4123- 

6C 49 49 

JMP 

(#4949) 

4185- 

48 

PHA 


41E9- 

1B 



77? 


4126- 

49 49 

EOR 

#*49 

4186- 

69 49 

ADC 

#*49 

41EA- 

48 



PHA 


4128- 

09 FC 

ORA 

#*FC 

4188- 

49 4D 

EOR 

tt*4D 

41EB- 

49 

49 


EOR 

#*49 

412A- 

DB 

77? 


418A- 

D8 

CLD 


41ED- 

0D 

4D 

49 

ORA 

*494D 

412B- 

DB 

77? 


418B- 

1B 

77? 


41F0- 

D8 



CLD 


412C- 

DB 

77? 


418C— 

DF 

77? 


41F1- 

3B 



777 


412D- 

DB 

77? 


418D- 

DB 

77? 


41F2- 

FF 



777 


412E- 

1B 

77? 


418E- 

DF 

777 


41F3- 

3F 



77? 


412F- 

0C 

77? 


41 BF- 

03 

77? 


41F4- 

FF 



77? 


4130- 

4D 41 41 

EOR 

#4141 

4190- 

48 

PHA 


41F5- 

DB 



77? 


4133- 

49 09 

EOR 

#*09 

4191- 

49 4D 

EOR 

#*4D 

41F6- 

03 



77? 


4135- 

05 18 

ORA 

#18 

4193- 

69 49 

ADC 

#*49 

41F7- 

48 



PHA 


4137- 

DF 

77? 


4195- 

DO 

CLD 


41F8- 

09 

6D 


ORA 

#S6D 

4138- 

DB 

77? 


4196- 

DB 

77? 


41FA- 

29 

6D 


AND 

#*6D 

4139- 

1F 

77? 


4197- 

FB 

77? 


41FC- 

09 

0D 


ORA 

#*0D 

413A- 

DF 

77? 


4198- 

DF 

77? 


41FE- 

D8 



CLD 


413B- 

DB 

77? 


4199- 

DB 

777 


41FF- 

FB 



77? 


413C- 

07 

77? 


419A- 

48 

PHA 


4200- 

FB 



77? 


413D- 

48 

PHA 


419B- 

49 09 

EOR 

#*09 

4201- 

DF 



777 


413E- 

4D 69 09 

EOR 

#0969 

419D- 

4D 49 01 

EOR 

*0149 

4202- 

1B 



77? 


4141- 

4D 69 D8 

EOR 

*D869 

41A0- 

00 

BRK 


4203- 

DF 



777 


4144- 

3B 

77? 


41A1- 

DB 

77? 


4204- 

48 



PHA 



42 



Tappeto mobile 


APPLE II 


Seguito listato Tappeto mobile. 


4262- 

92 



77? 


42CF- 

48 



PHA 






4263- 

4A 



LSR 


42D0- 

49 

49 


EOR 

#*49 





4264- 

2D 

2D 

2D 

AND 

» 2D2D 

42D2- 

4D 

49 

09 

EOR 

*0949 





4267- 

2D 

2D 

2D 

AND 

*2D2D 

42D5- 

00 



BRK 


4205- 

4D 29 4D 

EOR 

*4D29 

426A- 

0D 

38 

3F 

ORA 

*3F3B 

42D6- 

DB 



??? 


4208- 

29 4D 

AND 

#*4D 

426D— 

3F 



??? 


42D7— 

DB 



??? 


420A- 

01 DB 

ORA 

<*DB,X> 

426E— 

3F 



777 


42D8- 

93 



77? 


420C— 

DB 

??? 


426F- 

3F 



77? 


42D9- 

92 



777 


420D- 

DB 

??? 


4270- 

3F 



77? 


42DA- 

92 



777 


420E- 

DB 

77? 


4271 — 

3F 



777 


42DB- 

4A 



LSR 


420F- 

3F 

77? 


4272- 

3F 



77? 


42DC- 

49 

09 


EOR 

#*09 

4210- 

FF 

777 


4273- 

67 



77? 


42DE- 

6D 

49 

09 

ADC 

*0949 

4211- 

00 

BRk 


4274- 

2D 

2D 

2D 

AND 

*2D2D 

42E1- 

D8 



CLD 


4212- 

DB 

777 


4277- 

2D 

2D 

2D 

AND 

*2D2D 

42E2- 

DB 



??? 


4213- 

DB 

77? 


427A- 

2D 

05 

DB 

AND 

*D805 

42E3- 

FB 



??? 


4214- 

92 

777 


427D- 

DB 



777 


42E4- 

FB 



??? 


4215- 

92 

77? 


427E- 

FB 



77? 


42E5- 

DB 



??? 


4216- 

2A 

ROL 


427F- 

DF 



77? 


42E6- 

03 



??? 


4217- 

2D 2D 2D 

AND 

T2D2D 

4280- 

DB 



77? 


42E7- 

28 



PLP 


421A- 

2D 2D 25 

AND 

*252D 

4281- 

1B 



777 


42EB- 

2D 

2D 

2D 

AND 

S2D2D 

421 D— 

DF 

??? 


4282- 

08 



PHP 


42EB- 

2D 

2D 

2D 

AND 

*2D2D 

421E- 

DF 

??? 


4283- 

2D 

2D 

2D 

AND 

*2D2D 

42EE- 

2D 

1C 

DF 

AND 

*DF 1C 

421F— 

DB 

77? 


4286- 

6D 

2D 

2D 

ADC 

*2D2D 

42F1- 

DB 



??? 


4220- 

DF 

777 


4289- 

0D 

D8 

FB 

ORA 

*FBD8 

42F2- 

DB 



777 


4221- 

OC 

777 


428C- 

FB 



??? 


42F3- 

DB 



77? 


4222- 

4D 4D 69 

EOR 

*694D 

428D- 

DF 



??? 


42F4- 

3B 



777 


4225- 

29 18 

AND 

#*18 

428E- 

DB 



??? 


42F5- 

08 



PHP 


4227- 

DF 

777 


428F- 

1F 



??? 


42F6- 

4D 

49 

49 

EOR 

*4949 

4228- 

FB 

777 


4290- 

48 



PHA 


42F9- 

49 

29 


EOR 

#*29 

4229- 

DF 

??'? 


4291- 

4D 

49 

0D 

EOR 

*0D49 

42FB- 

18 



CLC 


422A- 

3B 

777 


4294- 

4D 

4D 

D8 

EOR 

*D84D 

42 P C— 

DF 



??? 


422B- 

48 

PHA 


4297- 

FB 



777 


42FD- 

DF 



777 


422C- 

4D 69 09 

EOR 

*0969 

4298- 

FB 



777 


42FE- 

FF 



777 


422F- 

0D DB DF 

ORA 

*DFD8 

4299- 

DF 



77? 


42FF- 

FB 



777 


4232- 

42 

777 


429A- 

1B 



777 


4300- 

3B 



777 


4233- 

42 

777 


429B- 

DF 



777 


4301- 

08 



PHP 


4234- 

1F 

777 


429C- 

48 



PHA 


4302- 

4D 

49 

49 

EOR 

*4949 

4235- 

48 

PHA 


429D- 

69 

49 


ADC 

#*49 

4305- 

49 

29 


EOR 

#*29 

4236- 

69 49 

ADC 

#*49 

429F— 

0D 

0D 

4D 

ORA 

*4D0D 

4307- 

D8 



CLD 


4238- 

69 01 

ADC 

#*01 

42A2— 

01 

D8 


ORA 

(*D8,X > 

4308- 

DF 



??? 


423A- 

D8 

CLD 


42A4- 

1B 



777 


4309- 

DB 



777 


423B- 

FB 

??? 


42A5- 

1F 



77? 


430A- 

DB 



777 


423C- 

DB 

??? 


42A6- 

1F 



77? 


430B- 

1B 



777 


423D- 

FB 

777 


42A7- 

DF 



777 


430C- 

1F 



777 


423E- 

03 

777 


42A8- 

FB 



777 


430D- 

48 



PHA 


423F— 

48 

PHA 


42A9- 

1B 



777 


430E- 

4D 

49 

49 

EOR 

*4949 

4240- 

09 4D 

ORA 

W*4D 

42AA- 

48 



PHA 


4311- 

09 

0D 


ORA 

MtOD 

4242- 

69 09 

ADC 

#*09 

42AB- 

09 

4D 


ORA 

#*4D 

4313- 

D8 



CLD 


4244- 

DB 

CLD 


42AD- 

69 

0D 


ADC 

#*0D 

4314- 

DF 



??? 


4245- 

1B 

777 


42AF — 

4D 

01 

DB 

EOR 

♦ D801 

4315- 

DB 



??? 


4246- 

DF 

777 


42B2- 

DB 



??? 


4316- 

DB 



??? 


4247- 

FB 

77? 


42B3- 

FF 



777 


4317- 

1B 



??? 


4248- 

1B 

777 


42B4- 

DF 



777 


4318- 

1F 



777 


4249- 

48 

PHA 


42B5— 

DF 



77? 


4319- 

48 



PHA 


424A- 

49 0D 

EOR 

#*0D 

42B6- 

1B 



777 


431A- 

4D 

49 

49 

EOR 

*4949 

424C- 

4D 09 D8 

EOR 

*D809 

42B7- 

48 



PHA 


431D- 

09 

0D 


ORA 

#*0D 

424F- 

DB 

777 


42B8- 

49 

4D 


EOR 

#*4D 

431F— 

D8 



CLD 


4250- 

1F 

777 


42BA- 

0D 

6D 

49 

ORA 

*496D 

4320- 

DF 



??? 


4251- 

DF 

777 


42BD- 

D8 



CLD 


4321- 

DB 



777 


4252- 

1B 

777 


42BE- 

DB 



??? 


4322- 

DB 



777 


4253- 

48 

PHA 


42BF- 

FB 



77? 


4323- 

1B 



777 


4254- 

49 69 

EOR 

#*69 

42C0- 

1F 



77? 


4324- 

1F 



77? 


4256- 

49 01 

EOR 

#*01 

42C1- 

DF 



77? 


4325- 

48 



PHA 


4258- 

D8 

CLD 


42C2- 

DB 



777 


4326- 

4D 

49 

49 

EOR 

*4949 

4259- 

DB 

??? 


42C3- 

48 



PHA 


4329- 

09 

OD 


ORA 

#*0D 

425A- 

FB 

77? 


42C4- 

49 

09 

#■ 

EOR 

#109 

432B- 

D8 



CI.D 


425B- 

DB 

777 


42C6- 

6D 

4D 

49 

' ADC 

♦ 494D 

432C- 

DF 



77? 


423C- 

03 

77? 


42C9- 

D8 



CLD 


432D- 

DB 



77? 


425D- 

00 

BRK 


42CA- 

DB 



??? 


432E- 

DB 



777 


425E- 

DB 

??? 


42CB- 

DB 



777 


432F- 

1B 



777 


425F- 

DB 

??? 


42CC- 

DF 



777 


4330- 

1F 



77? 


4260- 

9B 

77? 


42CD- 

DB 



77? 


4331- 

48 



PHA 


4261- 

92 

77? 


42CE- 

1B 



77? 


4332- 

69 

43 


ADC 

M*43 


43 









Seguito listato Tappeto mobile. 


4391- 

DF 

77? 


43FB- 

6D 4D 09 

ADC 

*094D 





4392- 

6C 69 69 

JMP 

(*6969) 

43FE- 

2D 4D 0D 

AND 

1 0D4D 





4395- 

09 4D 

ORA 

4*4D 

4401 — 

25 FF 

AND 

*FF 





4397- 

4D FC 3B 

EOR 

*3BFC 

4403- 

DB 

77? 


4334- 

43 

??? 


439A- 

FF 

77? 


4404- 

1B 

77? 


4335- 

69 01 

ADC 

4401 

439B- 

DB 

77? 


4405- 

DF 

77? 


4337- 

DO 

CLD 


439C— 

3B 

77? 


4406- 

DB 

77? 


4338- 

IO 

77? 


439D- 

FF 

?9? 


4407- 

3B 

77? 


4339- 

FF 

?7? 


439E- 

23 

77? 


4408- 

2C 4D 4D 

BIT 

*4D4D 

433ft- 

DO 

??? 


439F— 

4D 49 49 

EOR 

*4949 

4400- 

69 09 

ADC 

#*09 

433B- 

FF 

??? 


43A2— 

49 49 

EOR 

4*49 

440D- 

4D 25 FF 

EOR 

*FF25 

433C- 

10 

??? 


43A4- 

E1 DF 

SBC 

<*DF,X> 

4410- 

DB 

77? 


4330- 

48 

F'HA 


43A6- 

1B 

77? 


4411- 

1B 

77? 


433E- 

49 29 

EOR 

4429 

43A7— 

DF 

777 


4412- 

DF 

77? 


4340- 

20 4D 49 

AND 

*494D 

43A8— 

FB 

77? 


4413- 

DB 

77? 


4343- 

08 

CLD 


43A9— 

DB 

777 


4414- 

3B 

77? 


4344- 

DB 

??? 


43AA- 

07 

77? 


4415- 

0C 

??? 


4345- 

10 

??? 


43AB- 

08 

PHP 


4416- 

6D 09 4D 

ADC 

*4D09 

4346- 

FF 

77? 


43AC- 

4D 69 2D 

EOR 

*2D69 

4419- 

69 09 

ADC 

#*09 

4347- 

DB 

77? 


43AF- 

0D 4D 29 

ORA 

*294D 

441B- 

2D 18 FF 

AND 

*FF1B 

4348- 

IO 

77? 


43B2- 

D8 

CLD 


441 E— 

DB 

777 


4349- 

00 

BRF 


4303- 

DF 

77? 


441F- 

FB 

77? 


434A- 

DB 

77? 


43B4- 

DF 

77? 


4420— 

DB 

77? 


4348- 

DB 

??? 


43B5- 

DB 

77? 


4421- 

3B 

77? 


434C- 

9B 

??? 


43B6— 

DF 

777 


4422- 

07 

77? 


4340- 

92 

??? 


43B7— 

1F 

77? 


4423- 

48 

PHA 


434E- 

92 

??? 


43B8- 

48 

PHA 


4424- 

6D 49 49 

ADC 

*4949 

434F- 

4A 

LSR 


43B9- 

29 4D 

AND 

4*4D 

4427- 

09 6D 

ORA 

#*6D 

4350- 

49 29 

EOR 

4429 

43BB- 

49 09 

EOR 

4*09 

4429- 

D8 

CLD 


4352- 

2D 6D 49 

AND 

4496D 

43BD- 

6D 01 00 

ADC 

*0001 

442A- 

3B 

77? 


4335- 

01 D8 

ORA 

<»D8,X) 

43C0- 

DB 

77? 


442B- 

3F 

77? 


4337- 

1B 

??? 


43C1- 

DB 

77? 


442C- 

3F 

77? 


4358- 

FF 

??? 


43C2- 

9B 

77? 


442D- 

3F 

77? 


4359- 

DB 

77? 


43C3- 

92 

77? 


442E- 

3F 

77? 


435A- 

3B 

77? 


43C4— 

92 

77? 


442F- 

FF 

77? 


4350- 

DF 

??? 


43C5— 

4A 

LSR 


4430- 

03 

77? 


435C- 

03 

??? 


43C6- 

49 2D 

EOR 

4*2D 

4431- 

48 

PHA 


435D- 

48 

PHA 


43C8- 

2D 2D 4D 

AND 

*4D2D 

4432- 

49 2D 

EOR 

#*2D 

435E- 

69 49 

ADC 

4*49 

43CB- 

09 D8 

ORA 

4*D8 

4434- 

44 

77? 


4360- 

49 09 

EOR 

4*09 

43CD- 

3B 

77? 


4435- 

44 

77? 


4362- 

4D DB DF 

EOR 

*DFD8 

43CE- 

3F 

77? 


4436- 

4D 09 00 

EOR 

*0009 

4365- 

DB 

??? 


43CF- 

3F 

77? 


4439- 

DB 

77? 


4366- 

DB 

77? 


43D0- 

3F 

77? 


443A- 

DB 

77? 


4367- 

DB 

77? 


43D1- 

3F 

77? 


443B- 

9B 

77? 


4368- 

1F 

??? 


43D2- 

FF 

77? 


443C- 

92 

77? 


4369- 

08 

PHP 


43D3- 

03 

77? 


443D- 

92 

77? 


4 J6A- 

4D 49 69 

EOR 

*6949 

43D4- 

48 

PHA 


443E- 

4A 

LSR 


436D- 

49 09 

EOR 

4*09 

43D5- 

6D 49 49 

ADC 

*4949 

443F— 

49 2D 

EOR 

#*2D 

436F 

05 18 

ORA 

*18 

43D8- 

09 6D 

ORA 

4*6D 

4441- 

2D 2D 4D 

AND 

44D2D 

4371- 

DF 

77? 


43DA- 

18 

CLC 


4444- 

09 DB 

ORA 

#*D8 

4372- 

DB 

77? 


43DB- 

FF 

77? 


4446- 

3B 

777 


4373- 

3F 

??? 


43DC- 

DB 

77? 


4447- 

DF 

77? 


4374- 

DF 

777 


43DD- 

FB 

777 


4448- 

DB 

77? 


43/5- 

DB 

77? 


43DE- 

DB 

77? 


4449- 

1B 

77? 


4376- 

07 

77? 


43DF- 

3B 

77? 


444A- 

FF 

77? 


4377- 

68 

PLA 


43E0- 

07 

77? 


4440- 

03 

77? 


4378- 

49 49 

EOR 

4*49 

43E1- 

08 

PHP 


444C- 

4B 

PHA 


437A- 

49 49 

EOR 

4*49 

43E2- 

6D 09 4D 

ADC 

*4D09 

444D- 

4D 49 49 

EOR 

*4949 

437C- 

09 FC 

ORA 

4*FC 

43E5- 

69 09 

ADC 

4*09 

4450- 

49 0D 

EOR 

M*0D 

437E- 

DB 

77? 


43E7— 

2D 38 DF 

AND 

*DF3B 

4452- 

18 

CLC 


437F- 

3F 

77? 


43EA- 

DB 

77? 


4453- 

DF 

77? 


4380- 

1F 

77? 


43EB- 

DB 

77? 


4454- 

DB 

77? 


4381- 

3F 

77? 


43EC- 

DB 

77? 


4455- 

3F 

77? 


4382- 

DF 

77? 


43ED- 

10 

777 


4456- 

DF 

77? 


4303- 

1B 

77? 


43EE- 

27 

777 


4457- 

DB 

??? 


4384- 

6C 09 4D 

JMP 

<*4D09) 

43EF- 

6D 69 49 

ADC 

*4969 

4458- 

07 

77? 


4 387 - 

0D 4D 4D 

ORA 

*4D4D 

43F2- 

49 4D 

EOR 

4*4D 

4459- 

08 

PHP 


438A- 

21 DF 

AND 

<*DF,X) 

43F4- 

25 FF 

AND 

*FF 

445A- 

4D 29 4D 

EOR 

*4D29 

438C- 

1F 

77? 


43F6- 

DB 

77? 


445D- 

29 4D 

AND 

#*4D 

4380- 

IF 

77? 


43F7- 

DB 

77? 


445F- 

29 F8 

AND 

#*F8 

430E- 

1F 

77? 


43F8- 

DB 

77? 


4461- 

1B 

77? 


438F - 

1F 

77? 


43F9- 

DB 

77? 


4462- 

DF 

79? 


4390- 

1F 

77? 


43FA- 

27 

77? 


4463- 

DB 

77? 



44 



Tappeto mobile 


APPLE II 


Seguito listato Tappeto mobile. 


44C8- 

3F 


777 


452E- 

01 

D8 


ORA 

<*DS,X> 






44C9- 

3F 


77? 


4530- 

DB 



77? 







44CA- 

3F 


77? 


4531- 

DF 



77? 







44CB- 

1F 


77? 


4532- 

1B 



77? 


4464- 

1B 


??? 


44CC- 

3F 


77? 


4533- 

DF 



77? 


4465- 

DF 


??? 


44CD— 

3F 


77? 


4534- 

DB 



77? 


4466- 

23 


77? 


44CE— 

3F 


77? 


4535- 

45 

45 


EOR 

*43 

4467- 

4D 

69 49 

EOFt 

44969 

44CF- 

27 


77? 


4537- 

29 

2D 


AND 

##2b 

446A- 

49 

4D 

EOR 

#*4D 

44D0- 

4D 

49 49 

EOR 

#4949 

4539- 

2D 

6D 

4D 

AND 

*4D6D 

446C- 

21 

DF 

AND 

(#DF,X) 

44D3- 

49 

49 

EOR 

##49 

453C- 

49 

D8 


EOR 

##D8 

446E- 

DF 


??? 


44D5- 

E1 

DF 

SBC 

<*DF,X> 

453E- 

DB 



77? 


446F— 

DB 


??? 


44D7— 

DB 


77? 


453F- 

3B 



77? 


4470- 

DB 


77? 


44D8- 

DB 


77? 


4340- 

DF 



77? 


4471- 

FB 


??? 


44D9- 

DB 


77? 


4541 — 

1B 



777 


4472- 

23 


77? 


44DA- 

1B 


77? 


4542- 

DF 



77? 


4473- 

4D 

4D 49 

EOR 

*494D 

44DB- 

07 


77? 


4543- 

3F 



77? 


4476- 

49 

69 

EOR 

*469 

44DC— 

48 


PHA 


4544- 

68 



PLA 


4478- 

21 

DF 

AND 

<*DF,X) 

44DD- 

4D 

49 49 

EOR 

#4949 

4345- 

49 

69 


EOR 

#*69 

447A- 

DB 


??? 


44E0- 

49 

0D 

EOR 

M#0D 

4547- 

49 

69 


EOR 

#*69 

447B- 

DB 


??? 


44E2- 

DB 


CLD 


4549- 

49 

3C 


EOR 

#*3C 

447C- 

DB 


??? 


44E3- 

FB 


77? 


454B- 

DF 



77? 


447D- 

DB 


??? 


44E4- 

DB 


77? 


454C- 

DF 



77? 


447E- 

23 


??? 


44E5- 

DB 


77? 


454D- 

DB 



77? 


447F- 

4D 

49 4D 

EOR 

44D49 

44E6- 

1B 


77? 


454E- 

FB 



77? 


4482- 

69 

49 

ADC 

*449 

44E7— 

DF 


77? 


454F- 

1B 



77? 


4484- 

21 

DF 

AND 

<4DF,X> 

44E8- 

48 


PHA 


4550- 

3F 



77? 


4486- 

DB 


??? 


44E9- 

2D 

4D 49 

AND 

#494D 

4551- 

4C 

69 

09 

JMP 

*0969 

4487- 

DF 


??? 


44EC- 

09 

2D 

ORA 

tt#2D 

4554- 

4D 

49 

29 

EOR 

*2949 

4488- 

FB 


??? 


44EE- 

0D 

DS FB 

ORA 

#FBDB 

4557- 

0D 

FC 

DF 

ORA 

*DFFC 

4489- 

DB 


??? 


44F1- 

DB 


77? 


455A- 

DB 



77? 


448A- 

63 


??? 


44F2- 

DB 


77? 


455B- 

1B 



77? 


448B- 

4D 

09 4D 

EOR 

44D09 

44F3- 

1B 


77? 


455C- 

DF 



77? 
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EOR 

*0949 

47DE- 

1F 



77? 


4711- 

1B 

77? 


4777- 

D8 



CLD 


4VDF- 

3F 



77? 


4712- 

48 

PHA 


477B- 

DB 



77? 


47E0- 

DF 



77? 


4713- 

49 0D 

EOR 

#*0D 

4779- 

DB 



77? 


47E1- 

DB 



77? 


4715- 

4D 09 DB 

EOR 

*D809 

477A- 

DF 



77? 


47E2— 

1F 



777 


4718- 

DB 

77? 


477B- 

DB 



77? 


47E3— 

48 



PHA 


4719- 

1F 

77? 


477C- 

1B 



77? 


47E4- 

4D 

49 

2D 

EOR 

*2D49 

471A- 

DF 

77? 


477D— 

48 



PHA 


47E7- 

0D 

0D 

D8 

ORA 

*D80D 

471B- 

1B 

77? 


477E- 

49 

49 


EOR 

#*49 

47EA- 

1F 



77? 


471C- 

48 

PHA 


4780- 

4D 

49 

09 

EOR 

*0949 

47EB- 

3F 



77? 


471D- 

49 0D 

EOR 

#*0D 

4783- 

F8 



SED 


47EC- 

DF 



77? 


471F— 

CD 

Q 

O' 

s 

Q 

«J- 

EOR 

*D809 

4784- 

1B 



77? 


47ED- 

DB 



77? 


4722- 

DB 

77? 


4785- 

DF 



77? 


47EE- 

1F 



77? 


4723- 

1F 

77? 


4786- 

FB 



77? 


47EF- 

48 



PHA 


4724- 

DF 

77? 


4787- 

1B 



77? 


47F0- 

4D 

49 

49 

EOR 

*4949 


47 
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484F- 

DB 

77? 


4880- 

29 D8 

AND 

#*D8 





4850- 

3B 

77? 


48B2- 

DF 

77? 






4851 — 

3F 

777 


4883- 

DB 

77? 






4052- 

3F 

77? 


48B4- 

1B 

77? 


47F3- 

69 D8 

ADC 

#*D8 

4853- 

68 

FLA 


48B5- 

6C 49 49 

JMP 

<*4949) 

47F5- 

DF 

??? 


4854- 

49 69 

EOR 

#*69 

48BQ- 

0D D8 DF 

ORA 

*DFD8 

47F6- 

DB 

77? 


4856- 

49 29 

EOR 

#*29 

4BBB- 

DB 

77? 


47F7- 

3B 

77? 


4858- 

F8 

SED 


48BC— 

3B 

77? 


47F8- 

1F 

77? 


4859- 

DB 

77? 


48BD— 

08 

PHP 


47F9- 

1F 

•>?? 


485A- 

FB 

77? 


48BE- 

4D 49 09 

EOR 

*0949 

47FA- 

48 

PHA 


485B- 

DB 

77? 


40C1- 

05 FB 

ORA 

*F8 

47FB- 

00 60 49 

ORA 

*496D 

485C- 

1B 

77? 


48C3— 

FB 

77? 


47FE- 

09 00 

ORA 

#*0D 

485D- 

0C 

77? 


48C4- 

DF 

77? 


4800- 

08 

CLD 


405E- 

4D 49 69 

EOR 

*6949 

48C5- 

1F 

77? 


4801- 

DF 

77? 


4861 — 

49 FC 

EOR 

#*FC 

48C6- 

48 

PHA 


4802- 

DB 

77? 


4863- 

1B 

77? 


48C7— 

29 0D 

AND 

#*0D 

4803- 

3B 

77? 


4864- 

DF 

77? 


48C9- 

0D 2D D8 

ORA 

SD82D 

4804- 

1F 

77? 


4865- 

DB 

77? 


48CC- 

FB 

77? 


4005- 

1F 

77? 


4866- 

FB 

77? 


48CD- 

DF 

77? 


4806- 

48 

PHA 


4867- 

48 

PHA 


48CE- 

1B 

77? 


4807- 

4D 49 49 

EOR 

*4949 

4868- 

69 49 

ADC 

#*49 

48CF- 

48 

PHA 


480A- 

69 38 

ADC 

0*38 

486A- 

09 4D 

ORA 

#*4D 

48D0- 

49 4D 

EOR 

#*4D 

480C- 

3F 

77? 


486C— 

FC 

77? 


48D2- 

0D D8 3B 

ORA 

43BD8 

480D- 

3F 

77? 


486D— 

FB 

77? 


48D5- 

DF 

77? 


480E- 

3F 

77? 


486E- 

DB 

77? 


48D6- 

DB 

77? 


480F- 

3F 

777 


486F- 

FB 

77? 


48D7— 

00 

BRK 


4810- 

3F 

77? 


4870— 

1B 

77? 


48DB- 

DB 

77? 


481 1- 

3F 

77? 


4871- 

48 

PHA 


48D9- 

92 

77? 


4812- 

67 

77? 


4872- 

69 49 

ADC 

#*49 

48DA- 

4A 

LSR 


4813- 

4D 49 49 

EOR 

*4949 

4874- 

09 4D 

ORA 

#*4D 

48DB- 

2D 0D D8 

AND 

*D80D 

4816- 

49 05 

EOR 

0*05 

4876- 

FC 

77? 


48DE- 

1F 

77? 


4818- 

D8 

CLD 


4877- 

1B 

77? 


48DF- 

1F 

77? 


4819- 

DF 

777 


4878- 

DF 

77? 


48E0- 

48 

PHA 


4B1A- 

DB 

77? 


4879- 

DB 

77? 


48E1- 

0D 0D DB 

ORA 

*D80D 

4818- 

DB 

77? 


487A- 

FB 

77? 


4BE4- 

1F 

77? 


481C— 

FB 

77? 


487B- 

08 

PHP 


48E5- 

1F 

77? 


481D- 

48 

PHA 


487C- 

4D 49 69 

EOR 

*6949 

48E6- 

48 

PHA 


481 E— 

69 49 

ADC 

#*49 

487F- 

09 05 

ORA 

#*05 

48E7- 

0D 0D 38 

ORA 

*380D 

4820- 

49 6D 

EOR 

#*6D 

4881- 

18 

CLC 


48EA- 

FF 

77? 


4822- 

D8 

CLD 


4882- 

DF 

77? 


48EB- 

3F 

77? 


4823- 

3F 

77? 


4883- 

FB 

77? 


48EC— 

0C 

77? 


4824- 

DF 

777 


4884- 

DB 

77? 


48ED— 

4D 29 D8 

EOR 

*D829 

4825- 

DB 

77? 


4885- 

1B 

77? 


48F0- 

1F 

77? 


4826- 

DF 

77? 


4886- 

07 

77? 


48F1- 

1F 

77? 


4827- 

03 

77? 


4887- 

48 

PHA 


4BF2- 

48 

PHA 


4828- 

48 

PHA 


4888- 

2D 2D 6D 

AND 

*6D2D 

48F3— 

69 01 

ADC 

#*01 

4829- 

49 4D 

EOR 

H*4D 

48BB- 

09 0D 

ORA 

#*0D 

48F5- 

00 

BRK 


482B- 

69 6D 

ADC 

#*6D 

488D- 

D8 

CLD 


48F6- 

DB 

77? 


482D- 

D8 

CLD 


488E- 

3B 

77? 


48F7- 

DB 

77? 


482E- 

FF 

77? 


480F- 

DF 

77? 


48F8- 

93 

77? 


482F- 

FB 

77? 


4890- 

DB 

77? 


48F9- 

92 

77? 


4830- 

DF 

777 


4891- 

DF 

77? 


48FA- 

92 

777 


4831- 

DB 

77? 


4892- 

48 

PHA 


48FB- 

2D 2D 2D 

AND 

♦ 2D2D 

4832- 

48 

PHA 


4893- 

09 2D 

ORA 

M*2D 

48FE- 

2D 2D 2D 

AND 

*2D2D 

4833- 

49 09 

EOR 

#*09 

4895- 

2D 4D 09 

AND 

*0940 

4901- 

2D 3C 3F 

AND 

S3F3C 

4835- 

4D 49 01 

EOR 

*0149 

4898- 

00 

BRK 


4904- 

3F 

7?? 


4838- 

40 

PHA 


4899- 

DB 

77? 


4905- 

3F 

77? 


4839- 

48 

PHA 


4B9A- 

9B 

77? 


4906- 

3F 

77? 


4B3A- 

DB 

777 


489B- 

92 

77? 


4907- 

3F 

77? 


483B- 

92 

77? 


489C— 

92 

77? 


4908- 

3F 

77? 


483C- 

92 

77? 


489D- 

49 6D 

EOR 

#*6D 

4909- 

27 

77? 


483D- 

52 

77? 


489F- 

2D 0D 18 

AND 

* 180D 

490A- 

2D 2D 2D 

AND 

*2D2D 

483E- 

09 2D 

ORA 

#*2D 

48A2- 

DF 

77? 


490D- 

2D 2D 2D 

AND 

S2D2D 

4840- 

2D 6D 49 

AND 

*496D 

48A3— 

FB 

77? 


4910- 

2D 3C 3F 

AND 

*3F3C 

4843- 

D8 

CLD 


48A4- 

FB 

77? 


4913- 

3F 

777 


4844- 

3B 

77? 


48A5- 

08 

PHP 


4914- 

3F 

77? 


4845- 

DF 

77? 


48A6- 

4D 49 49 

EOR 

*4949 

4915- 

3F 

77? 


4846- 

DB 

77? 


48A9- 

FC 

77? 


4916- 

3F 

77? 


4847- 

FB 

77? 


48AA— 

DB 

77? 


4917- 

3F 

77? 


4848- 

08 

PHP 


48AB- 

DB 

77? 


4918— 

27 

77? 


4849- 

4D 49 49 

EOR 

*4949 

48AC- 

3B 

77? 


4919- 

2D 2D 6D 

AND 

*6D2D 

484C- 

69 18 

ADC 

#*18 

48AD- 

6B 

PLA 


491C— 

09 2D 

ORA 

#*2D 

484E- 

DF 

77? 


48AE- 

49 49 

EOR 

#*49 

491E- 

2D 25 3F 

AND 

*3F25 


48 
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4990- 

DB 

??? 






4991- 

6C 49 49 

JMP 

(*4949) 





4994- 

49 49 

EOR 

#*49 





4996- 

49 49 

EOR 

#*49 

4921- 

3F 

??? 


4998- 

21 DF 

AND 

(*DF,X) 

4922- 

FF 

??? 


499A- 

DB 

??? 


4923- 

1F 

??? 


499B- 

DB 

??? 


4924- 

3F 

??? 


499C- 

DB 

??? 


4925- 

3F 

??? 


499D- 

DB 

??? 


4926- 

27 

??? 


499E— 

DB 

??? 


4927- 

2D 2D 6D 

AND 

*6D2D 

499F- 

DB 

??? 


492A— 

0D 2D 2D 

ORA 

*2D2D 

49A0- 

6C 49 49 

JMP 

(*4949) 

492D- 

25 3F 

AND 

*3F 

49A3- 

49 49 

EOR 

#*49 

492F- 

3F 

??? 


49A5- 

49 49 

EOR 

#*49 

4930- 

FF 

??? 


49A7- 

21 DF 

AND 

(*DF,X> 

4931- 

IF 

??? 


49A9- 

DB 

??? 


4932- 

3F 

??? 


49AA- 

DB 

??? 


4933- 

3F 

??? 


49AB- 

DB 

??? 


4934- 

27 

??? 


49AC- 

DB 

??? 


4935- 

2D 2D 6D 

AND 

*6D2D 

49AD- 

DB 

??? 


4938- 

0D 49 49 

ORA 

*4949 

49AE- 

DB 

??? 


493B- 

25 3F 

AND 

*3F 

49AF- 

6C 49 49 

JMP 

(*4949) 

493D- 

FF 

??? 


49B2- 

49 49 

EOR 

#*49 

4935- 

1B 

??? 


49B4- 

49 49 

EOR 

#*49 

493F— 

DF 

??? 


49B6- 

21 DF 

AND 

<*DF,X) 

4940- 

3B 

??? 


49B8- 

DB 

??? 


4941- 

3F 

??? 


49B9- 

DB 

??? 


4942- 

2C 2D 6D 

BIT 

*6D2D 

49BA- 

DB 

??? 


4945- 

2D 0D 2D 

AND 

*2D0D 

49BB— 

DB 

??? 


4948- 

2D 3C 3F 

AND 

*3F3C 

49BC- 

DB 

??? 


494B- 

3F 

??? 


49BD- 

DB 

??? 


494C- 

1F 

??? 


49BE- 

6C 49 49 

JMP 

(*4949) 

494D- 

1F 

??? 


49C1- 

49 49 

EOR 

#*49 

494E- 

3F 

??? 


49C3- 

49 49 

EOR 

#*49 

494F— 

3F 

??? 


49C5- 

21 DF 

AND 

(*DF,X> 

4950- 

27 

??? 


49C7- 

DB 

??? 


4951- 

2D 20 2D 

AND 

*2D2D 

49C8- 

DB 

??? 


4954- 

0D 2D 2D 

ORA 

*2D2D 

49C9- 

DB 

??? 


4957- 

2D 3C 3F 

AND 

*3F3C 

49CA- 

DB 

??? 


495A- 

3F 

??? 


49CB- 

DB 

??? 


495B- 

3F 

??? 


49CC- 

DB 

??? 


4950 

3F 

??? 


49CD- 

6C 49 49 

JMP 

(*4949) 

495D- 

3F 

??? 


49D0- 

49 49 

EOR 

#*49 

495E- 

3F 

??? 


49D2- 

49 49 

EOR 

#*49 

495F- 

27 

??? 


49D4— 

21 DF 

AND 

(*DF,X > 

4960- 

2D 20 20 

AND 

*2D2D 

49D6- 

DB 

??? 


4963- 

2D 20 2D 

AND 

*2D2D 

49D7- 

DB 

??? 


4966- 

20 3C 3F 

AND 

*3F3C 

49D8- 

DB 

??? 


4969- 

3F 

??? 


49D9- 

DB 

??? 


496A- 

3F 

??? 


49DA- 

DB 

??? 


496B- 

3F 

??? 


49DB- 

DB 

??? 


4960 

3F 

??? 


49DC- 

6C 49 49 

JMP 

(*4949) 

496D- 

3F 

??? 


49DF- 

49 49 

EOR 

#*49 

496E- 

27 

??? 


49E1 — 

49 49 

EOR 

#*49 

496F- 

2D 2D 2D 

AND 

*2D2D 

49E3— 

21 DF 

AND 

(*DF,X) 

4972- 

2D 2D 2D 

AND 

*2D2D 

49E5- 

DB 

??? 


4975- 

2D 04 00 

AND 

*0004 

49E6- 

DB 

??? 


4978- 

DB 

??? 


49E7- 

DB 

??? 


4979- 

DB 

??? 


49E8— 

DB 

??? 


497A- 

DB 

??? 


49E9— 

DB 

??? 


497B- 

93 

??? 


49EA- 

DB 

??? 


4970 

92 

??? 


49EB- 

6C 49 49 

JMP 

(*4949) 

497D- 

92 

??? 


49EE- 

49 49 

EOR 

#*49 

497E- 

92 

??? 


49F0- 

49 49 

EOR 

#*49 

497F- 

20 2D 20 

AND 

*2D2D 

49F2- 

21 DF 

AND 

(*DF,X) 

4982- 

2D 2D 2D 

AND 

*2D2D 

49F4- 

DB 

??? 


4985- 

20 2D 20 

AND 

*2D2D 

49F5- 

DB 

??? 


4988- 

2D 25 DF 

AND 

*DF25 

49F6- 

DB 

??? 


498B- 

DB 

??? 


49F7— 

DB 

??? 


4980 

DB 

??? 


49F8— 

DB 

??? 


498D- 

DB 

??? 


49F9- 

DB 

??? 


498E- 

DB 

??? 


49FA- 

6C 49 49 

JMP 

(*4949) 

498F- 

DB 

??? 


49FD- 

49 49 

EOR 

#*49 


49FF- 

49 

49 


4A01- 

21 

DF 


4A03— 

DB 



4A04- 

DB 



4A05- 

DB 



4A06- 

DB 



4A07- 

DB 



4A0B- 

DB 



4A09— 

6C 

49 

49 

4A0C— 

49 

49 


4A0E- 

49 

49 


4A10— 

21 

DF 


4A12— 

DB 



4A13— 

DB 



4A14- 

DB 



4A15- 

DB 



4A16— 

DB 



4A17— 

DB 



4A18— 

6C 

49 

49 

4A1B- 

49 

49 


4A1D- 

49 

49 


4A1F- 

21 

3F 


4A21- 

3F 



4A22- 

3F 



4A23- 

3F 



4A24- 

3F 



4A25— 

3F 



4A26— 

3F 



4A27- 

3F 



4A28- 

3F 



4A29- 

3F 



4A2A— 

27 



4A2B- 

00 



4A2C- 

00 




EOR 

#*49 

AND 

(*DF,X) 

??? 


??? 


??? 


??? 


??? 


??? 


JMP 

(*4949) 

EOR 

#*49 

EOR 

#*49 

AND 

<*DF,X> 

??? 


??? 


??? 


??? 


??? 


??? 


JMP 

(*4949) 

EOR 

#*49 

EOR 

#*49 

AND 

(*3F,X> 

??? 


??? 


??? 


??? 


??? 


??? 


??? 


??? 


??? 


??? 


BRK 


BRK 




49 






A.P. Stephenson 

IL COMPUTER: 
l’Hobby e il lavoro 

Il computer come compagno 
ideale, nella propria 
professione e nell’hobby. 

Cod. CI 187 Pag. 192 L. 12.000 

R. Bottelli, L. Pazzncconi, 

F. Racchi 

GUIDA AL COMMODORE 
PLUS 4 

Un manuale completo per il 
Plus 4 ripercorrendo C16 per 
te e C16 sempre di più. 

Cod. CC256 Pag.470 L. 30.000 


G. Marano 

30 PROGRAMMI 
PER MSX 

Inserite soltanto la cassetta 
e... una valanga 
di programmi uscirà 
dal vostro MSX. 


Totale 


□ Pagherò contrassegno al postino il prezzo indicato 

fisso SDese di SDedizione. 


oiu L 3.000 oer contributo 


GRUPPO EDITORIALE 

JACKSON 


DIVISIONE LIBRI 


Scopri il tuo 
home 


GRUPPO EDITORIALE 


DIVISIONE UMI 


A. Bona, M.C. Grizzi 

LAVORIAMO CON 
IL COMMODORE 16 

Lavorare con il C16 è un 
piacere, fallo anche tu, 
ti divertirai. 

Cod. CC244 Pag. 196 L. 20.000 
Con cassetta 


ritagliare (o fotocopiarci e spedire in Dueta 

GRUPPO EDITORIALE JACKSON Divisione Lion Via Ro 


12 • 20124 Mila 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copie 


codice 


Prezzo unitario 


Prezzo totale 


Cod. CZÌ81 Pag. 96 L. 20.000 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 


Con cassetta 


□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n, 11666203 a voi intestato 


A. Cattaneo, P. Todorovich 

COMPUTER HARDWARE 

Il primo vero libro di 
realizzazioni pratiche 
dedicate ai più diffusi home 
computer: C64, Spectrum, 
VIC20, C16 e MSX. 

Cod. CH182 Pag. 152 L. 13.000 


□ Allego fotocopia di versamento 

n°_ su vaglia postale a voi intestato 

Nome 


Cognome 

Via 

Cap. 

Città 

Prov. 

Data 

Firma 



Spazio riservato alle Aziende. Si richiede l’emissione di fattura 


Partita I.V.A. 

1 I 1 1 II 1 1 1 1 1 1 

MINIMO 

L 50.000 


Jackson 
la biblioteca 
che fa 
testo 



































COMMODORE 64 

_ « - 


Music utility 

Completiamo Music editor con l'aggiunta 

di un’interessante routine 


di Tommaso Palermo 


L a prima critica ricevuta per il 
programma “Music editor” 
(M.e. d'ora in poi, vedere Per¬ 
sonal Software n. 33, Novem¬ 
bre '85) riguardava il fatto che i pro¬ 
grammi musicali da questo generati so¬ 
no fini a se stessi e non possono essere 
utilizzati per sonorizzare altri program¬ 
mi, Confessiamo che proprio questa era 
la nostra intenzione: suggestionati dal¬ 
l'ascolto sul Commodore 64 di alcuni 
programmi in grado di eseguire splen¬ 
dide trascrizioni di Bach, avevamo fati¬ 
cosamente costruito, mediante un edi¬ 
tor piuttosto rudimentale, un program¬ 
ma che eseguiva un intero concerto di 
Vivaldi. Da questa esperienza era nata 
l'idea di M.e., che non aveva però tra i 
suoi scopi quello di sonorizzare pro¬ 
grammi altrui, bensì quello di formare 
una raccolta musicale per computer, o, 
perché no, di dare all'utente la possibili¬ 
tà di cimentarsi nella composizione an¬ 
che senza avere completa padronanza 
di uno strumento. 

Sollecitati comunque dall’appunto di 
cui sopra, abbiamo ideato questa routi¬ 
ne (listato 1 ) che permetterà d'inserire le 
musiche trascritte per mezzo di M.e. nei 
propri programmi, senza rallentarne l'e¬ 
secuzione mentre il brano viene suona¬ 
to e, soprattutto - nel limite, piuttosto 
ampio, di 1.023 note per brano - senza 
sottrarre memoria Ram al Basic. 

Chi già conosce il funzionamento del C 
64, avrà senz'altro compreso come ciò 
può avvenire: per quanto riguarda il pri¬ 
mo punto, affidando l’esecuzione anzi¬ 
ché a una routine in Basic - come in M.e. 
- a una routine in linguaggio macchina 
richiamata dall'interrupt; riguardo al se¬ 
condo punto invece, i dati delle note 
vengono trascritti nella Ram nascosta 
sotto gli 8 Kbyte dell'interprete Basic 
(Ram che non può naturalmente essere 
adoperata dal Basic), da $A000 a 
$BFFF. Poiché la codifica di ogni nota - 
per ognuna delle tre voci - richiede 8 
byte, ne risulta che questa poco usata 
area di memoria è sufficiente a conte¬ 
nere 1.024 note meno una (l’ultima se¬ 
gnala la fine del brano). 

A cosa serve l’utility 

Applicata, nel modo che vedremo, a 
uno dei programmini musicali generati 
da M.e., Music utility creerà un ulteriore 
nuovo programma Basic. Quest’ultimo, 


il programma richiamante, avrà come 
prima riga la seguente: 

10 IF MU = 0 THEN MU = 49173:LOAD 
“(NOME PROG.MUSICALE]",8,1 

Dopodiché, in qualsiasi punto del pro¬ 
gramma si voglia fare iniziare l'esecu¬ 
zione, basterà scrivere l'istruzione Sy- 
smu (o Sys 49173); altri comandi, appli¬ 
cabili all'esecuzione musicale, sono i- 
noltre: 

• Sys 49391 (interrompe l'esecuzione); 

• Sys 49202 (riprende l’esecuzione dal 
punto in cui era stata eventualmente 
interrotta); 

• Wait 788,1 (sospende l'esecuzione del 
programma fino a che non cessa la 
musica). 

Come si può vedere non si tratta di un 


set completo d’istruzioni per il tratta¬ 
mento della colonna sonora, ma è 
quanto basta per corredare i propri pro¬ 
grammi di un gradevole sottofondo mu¬ 
sicale con effetti distensivi... Chi lavora 
con l’Easy Script sa, per esempio, che 
premendo FI e Ctrl 3 può continuare a 
scrivere per un minutino circa accom¬ 
pagnato dall'esecuzione di un brano di 
Elgar; a un'esigenza del genere rispon¬ 
de perfettamente la nostra utility. 


Modalità d’uso 

Per creare questo nuovo programma 
bisogna: 

1) caricare in memoria il programma 
musicale (quello ottenuto, in M.e., dal 
comando Ctrl X, dopo ovviamente che il 
brano è stato trascritto); 

2) modificare, come in figura 2, la linea 1 
del programma, facendo attenzione a 
non alterarne la lunghezza! (Per prova¬ 
re il funzionamento basta dare Run2: se 
la musica viene suonata, bene, altri¬ 
menti si riprova, tenendo conto che 
Load e Rem occupano entrambe un 
solo byte nella riga Basic); 

3) inserire nel drive un dischetto conte¬ 
nente il programma Music utility e, pos¬ 
sibilmente, lo spazio per il nuovo pro¬ 
gramma; 


4) battere Run. 

Queste operazioni sono indispensabili 
per mantenere protetta l'area su cui so¬ 
no scritti i dati delle note, nonché per 
permettere a Music utility di riconoscere 
da sé fino a dove queste sono trascritte. 
Gli altri dati invece verranno richiesti dal 
programma, dopo che questo è stato 
caricato e dopo aver trascritto i dati in 
linguaggio macchina da 49173 a 49437. 
Bisogna quindi inserire, nell’ordine: 

51 


1 REM ***************************** 1 LORD "MUSIC UTILITY",8i*********** 

2 REM * * 2 REM * * 

3 REM * J.S. BflCH * 3 REM * J.S. BflCH * 

4 REM * PRELUDIO N. I * 4 REM * PRELUDIO N. 1 * 

3 REM * * 5 REM * * 

6 REM ***************************** 6 REM ***************************** 


Figura 1 - La differenza tra le testate di Music editor e Music utility. 










Listato 1-11 programma principale Music utility. 

10 REM* “UTILITY PER IL MUSIC EDITOR (PS 
NOV.85)* * *DI TOMMASO PALERMO*** 

20 FORI-19173T049137:READA:POKEI ,A:T-T+A 
: NEXT 

30 IFT033767THENPRINT" { RVS ON } ERRORE NE 
I DATA !": END 

10 INPUT "{CLR} (CUR.GIU)TITOLO DEL BRANO 
" ;BR$ 

50 FORI-0TO2:A-19152+7*I 

60 PRINTTAB(5)"(CUR.GIU)(RVS 0N){2 SPClV 
OCE "STR$(I+1)" {CUR.GIU}" 

70 INPUT"ATTACK-DECAY(1 SPC } ":D:IFD>255T 
HEN70 

80 POKEA+5.D 

90 INPUT"SUSTAIN-RELEASE ";S: IFS>255THEN 
90 

100 P0KEA+6,S 

110 INPUT"WAVEFORM ({RVS ON)T{RVS OFF},{ 
RVS ON}S{RVS OFF),{RVS ON)P{RVS OFF) 

, {RVS ON}N{RVS OFF))":B$ 

120 IFB$-"T"THENB-17 :G0T01 70 
130 IFB$-"S"THENB-33:G0T01 70 
110 IFB$-"P"THENB-65:G0T0170 
150 IFB$-"N M THENB«129:G0T01 70 
160 G0T0110 

170 POKEA+1 . B: IFB065THEN200 
180 INPUT"DUTY CYCLE (0-1095)";B: IFB>109 
5THEN180 

190 P0KEA+3.B/256:P0KEA+2,(BAND255) 

200 POKEA , 0 :POKEA+1 ,0:NEXT 
210 INPUT "{CUR.GIU){RVS ON) VELOCITA' { 
RVS OFF) (F: DA 1.0 A 3.5)";V 
220 IFV<10RV>3.5THEN210 

230 PRINT"{CUR.GIU)"TAB(12)"{RVS ON) ATT 
ENDI ":A-19152:X-PEEK(16)*256+PEEK(1 
5)-8 

210 FORI-1096TOX 

250 A-A-1:C-PEEK(I):IFJ-0THENC-C*V*.1:IF 
C>255THENC-255 

260 J-(J+1 )AND7:P0KEA,C:NEXT 
270 POKEA,0 :PRINTA 


275 P0KE198,0:PRINT"(CUR.GIU){RVS 0NJ{2 
SPC J PREMI UN TASTO QUANDO SEI PRONTO 
{2 SPC)":WAIT198,1 

280 P0KE252,A/256:P0KE251,A-PEEK(252)*25 
6:POKE255,193:POKE251,203 
290 0PEN1.8.1,BR$:P0KE253.10:SYS19118:CL 
OSE 1 

292 IF(PEEK(253)<10ANDPEEK(253)>0)THENPR 
INT"ERRORE DI REGISTRAZIONE !":END 
295 PRINT"{RVS ON)SYS19173{RVS OFF) - SU 
ONA * {RVS ON1SYS19391{RVS OFF) - IN 
TERROMPE":S YS1917 3 

300 DATAI 62,0,189,0,1 92.157,0,21 2,232,22 
1.21,208,215,169.192,133,252.169.0 
310 DATA 133,251,169.0,133,253,169,1,133, 

251.169.15.111.21.212.120.169.72.111 
320 DATA20,3.169,192,111,21,3,88.96,231, 

231.231.231.72,138.72,152,72,198 
330 DATA251,208,111,165,1,11,251.133,1.1 
61,253,208,2,198,252.136,177,251,210 
310 DATA105,1 33,251,1 36,1 77,251 , 1 11,1,21 
2,136,177,251,111.0,212.136,177,251, 
111 

350 DATA8.21 2,1 36,177.251 ,111,7,21 2,136, 
177,251,111,15,212,136,177,251,111,1 
1 

360 DATA21 2,1 36,177,251 ,170,11,1,210,5,1 
69,0,111,1,212.138,11,2,210,5 
370 DATAI 69,0,1 11,11 ,212,1 38,11 ,1,210,5, 
169,0,111.18,212,132,253.165,1 
380 DATA9.1,133,1.173,1,192,111,1,212,17 
3 , 11,192,111,11,212,173,18,192 
390 DATA1 11 ,18,212,101,1 68,101,170,101,7 

6.19.231.111 ,1,212,111 ,11,212,111 ,18 
100 DATA212,111,21,212,169,19,111,20,3,1 

69,231,111,21,3,165,1,9,1,133 
110 DATAI,101,168.101,170,101,76,19,231, 
169,0,111,1,212,111,11,212,111,18 
120 DATA212,111 ,21,212,120,169,19,111 ,20 
,3,1 69,231,1 11 ,21,3,88,96 
500 DATA 1 69,51,133,1.1 69.251.1 66,251,1 61 
.255,32,216,255,133.253.169.55,133.1 
,96 


a) il nome sotto cui va registrato il nuo¬ 
vo programma; 

b) i dati dell'inviluppo per ognuna delle 
tre voci (occorre ricordare quelli impo¬ 
stati in M.e., che comunque sono facil¬ 
mente ricavabili dal listato del program¬ 
ma precedente), che saranno trascritti 
da 49152 a 49172; 

c) la velocità d'esecuzione. 

Sul punto c) occorre fare una nota: la 
velocità, nel programma originale, è im¬ 
postata dalla variabile F, che si legge 
alla fine della riga 10: a minor valore di F 
corrisponde maggiore velocità d'esecu¬ 
zione. Però il ritmo calcolato teneva 
conto anche dei rallentamenti operati 
dal Basic, che non esistono invece nel 



nuovo programma; in linea di massima 
si può dire che per valori di F medi o alti 
(da due in su), questa accelerazione è 
meno sensibile e non pone grossi pro¬ 
blemi; per valori più bassi, oltre a notarsi 
la differenza di velocità, potrebbero ve¬ 
rificarsi anche degli scompensi nel rit¬ 
mo; sarà perciò opportuno aumentare il 
valore che si introduce rispetto a quello 
che compare nel listato del programma 
musicale in Basic. 

Terminata l'introduzione di questi dati 
e al termine dell'elaborazione da parte 
del computer, appare scritto un numero 
(l'indirizzo di partenza del nuovo pro¬ 
gramma: verificare che non sia più bas¬ 
so di 40.960, che non sia cioè occupata 


la Ram del Basic) e l'invito a premere un 
tasto; dopo averlo premuto, il nuovo 
programma viene registrato col nome 
che gli era stato scelto all'inizio, ed è 
praticamente pronto all'uso di cui so¬ 
pra. 


Come funziona 

Su questo punto, rimandiamo soprat¬ 
tutto alle note che accompagnano il 
disassemblato della routine in linguag¬ 
gio macchina (listato 2), dal momento 
che il programma Basic svolge un com¬ 
pito quasi esclusivamente da "piccolo 
scrivano": trascrive la routine in lin- 



Music utility 


COMMODORE 64 


guaggio macchina da $C015 a $C011 
(righe 20-30), i valori da inserire nel Sid 
da $C000 a SCOI4 (50-200), e i codici 
delle note da SBFFF in giù (210-270); e 
infine (col suo unico atto “creativo") fa 
funzionare la routine di registrazione 
(275-295). 

Il programma non può essere amplia¬ 
to, dal momento che così come è ripor¬ 
tato nel listato 1, occupa la memoria da 


2049 a 4078, e i dati delle note musicali 
nel programma originale sono trascritti 
da 4086 in su, con un margine di elasti¬ 
cità di soli 18 byte. Chi non dispone di 
drive, oltre a cambiare in uno tutti gli 
otto degli esempi qui riportati, deve an¬ 
che modificare la linea 290 (e ricordarsi 
di registrare il programma musicale a 
seguire, nella cassetta, il programma ri¬ 
chiamante): la ristrettezza di memoria 


non ha permesso d'inserire opzioni in 
Music utility. 

Ricordiamo infine che, trovandosi la 
routine d’esecuzione scritta tra 49152 e 
49417, non è compatibile con altre routi¬ 
ne in linguaggio macchina che doves¬ 
sero risiedere nella stessa area di me¬ 
moria; è compatibile invece con le routi¬ 
ne del Turbo tape, che sono trascritte a 
partire dall’indirizzo 50000. ■ 


(HOME).HOME 

(CLR).PULIZIA SCHERMO 

(CUR.SU).CURSORE IN ALTO 

(CUR.GIU).CURSORE IN BASSO 

(CUR.DES).CURSORE A DESTRA 

(CUR.SIN).CURSORE A SINISTRA 

(SPC ).SPAZIO 

(RVS ON).REVERSE ON 

( RVS OFF).REVERSE OFF 

(INSTI.INSERT 

(FI ).TASTO FI 

{ F2 }.TASTO F2 

{ F3 }.TASTO F3 

{ F4 }.TASTO F4 

( F5 ).TASTO F5 

{ F6 ).TASTO F6 

( F7 ).TASTO F7 

{ F8 }.TASTO F8 

(BLACK).COL. NERO (CTRL+1) 

( WHITE }.COL. BIANCO (CTRL + 2) 

(RED).COL. ROSSO (CTRL+3) 

(CYAN).COL. CIANO (CTRL+4) 


(PURPLE).COL. PORPORA (CTRL+5) 

(GREEN).COL. VERDE (CTRL + 6) 

(BLUE).COL. BLU (CTRL+7) 

(YELLOW).COL. GIALLO (CTRL + 8) 

(0RANGE).COL. ARANCIO (CBM+1) 

(BROWN).COL. MARRONE (CBM + 2) 

(LT.RED).COL. ROSSO CHIARO (CBM+3) 

{ CRAY 1 ).COL. GRIGIO 1 (CBM+4) 

(GRAY2).COL. GRIGIO 2 (CBM + 5) 

(LT.GREEN).COL. VERDE CHIARO (CBM + 6) 

(LT.BLUE).COL. BLU CHIARO (CBM + 7) 

( GR A Y 3 ).COL. GRIGIO 3 (CBM + 8) 


I CARATTERI GRAFICI, OTTENUTI CON LA 
PRESSIONE DEI TASTI ’SHIFT' E 'CBM ' , 
SONO CODIFICATI IN MODO DA INDICARE IL 
TASTO DA PREMERE ASSIEME A ’SHIFT' 0 
' CBM'. ES. IL CUORICINO E' CODIFICATO 
CON (SH Sì . 

UN NUMERO DENTRO LE PARENTESI INDICA 
LE VOLTE CHE IL TASTO VA PREMUTO. 


Figura 2 - Tabella di conversione. 


Listato 2 - La routine In linguaggio macchina. 


C015 

a2 

00 


1 dx 

#$00 

;- 

c 017 

bd 

00 

C0 

1 da 

$C 000 ,X 

/ Iniziai izza 

c0U 

9d 

00 

d4 

sta 

$d 400 , x 

; i registri 

c01 d 

e 8 



inx 


Idei SID,co- 

c0 1 e 

e 0 

15 


cpx 

#$15 

/p landò 1 i da 

c 020 

d 0 

f 5 


bne 

$C0 1 7 

1 C000-C014. 

c 022 

a3 

C 0 


l d a 

#$C0 

/ - - - - - - -—- 

c 024 

85 

fc 


sta 

$fc 

; Setta i va- 

C026 

a9 

00 


1 da 

#$00 

Mori delle 

C028 

85 

fb 


sta 

$f b 

; 1ocaz ion i 

C02a 

a9 

00 


Ida 

#$00 

/ in pagina 0 

c02c 

85 

f d 


sta 

$fd 

fusate come 

c02e 

a3 

01 


Ida 

#$0 1 

Icontatori. 

C030 

85 

■fa 


sta 

$f e 

;- 

C032 

a9 

0f 


Ida 

#$0f 

faccende il 

c 034 

8d 

18 

d4 

sta 

$d4 18 

ivo 1 urne. 

C037 

73 



se i 


;- 

C038 

a9 

48 


Ida 

#$48 

/Modifica il 

c03a 

8d 

14 

03 

sta 

$0314 

fvettore 

C03d 

a9 

C0 


Ida 

tt$C0 

/d'IRQ 

C03f 

8d 

15 

03 

sta 

$0315 

; 


C042 

53 


cl i 


y 

C043 

60 


rts 


;- 

C044 

ea 


nop 


i- 

C 045 

ea 


nop 


; Nuova 

C046 

ea 


nop 


/ interrupt 

C047 

ea 


nop 


irout inei 

C048 

48 


pha 


y - 

C 049 

8a 


txa 


/Salva i 

c04a 

48 


pha 


/registri 

c 04b 

98 


ty a 


/nello StacK 

c04c 

48 


pha 


,- 

c 04d 

c 6 

f e 

dee 

$f e 

/Deerementa 

c 04f 

d0 

72 

bne 

$c0c3 

/ i 1 tempo. 

c 051 

a5 

01 

Ida 

$01 

y - 

C053 

29 

te 

and 

#$f e 

/Attiva RAM 

c 055 

85 

0 1 

sta 

$01 

/a000-bfff 

c 057 

a4 

f d 

1 dy 

$f d 

;- 

c 059 

d0 

02 

bne 

$c05d 

/Aggiorna i 

C05b 

cS 

■fc 

dee 

$fc 

/ contatori. 

c 05d 

88 


dey 


|- 

c 05e 

b 1 

fb 

Ida 

<$f b),y 

/Preleva il 

c 060 

f 0 

69 

beq 

$c0cb 

/tempo (0= 

c 062 

85 

f e 

sta 

$f e 

/FINE). 


53 























































Seguito listato 2. 

C064 88 dey » 


c 065 

: b 1 

fb 


Ida 

<*fb ) ,y 

« VOCE 1* 

C067 

8d 

01 

d4 

sta 

*d 40 1 

«High-Byte 

c0Sa 

88 



dey 


% 

C06b 

b 1 

fb 


Ida 

<*f b ) ,y 

1 

c06d 

8d 

00 

d 4 

sta 

Sd400 

«Lou-Byte 

C070 

88 



dey 


| - 

c 07 1 

b 1 

fb 


Ida 

<*f b >,y 

«VOCE 2* 

c 073 

8d 

08 

d4 

sta 

*d408 

«High-Byte 

C076 

88 



dey 


; 

c 077 

b 1 

fb 


1 da 

<*fb ) ,y 

i 

c 079 

8d 

07 

d4 

sta 

*d407 

;Lou-Byte 

c 07c 

83 



dey 


ì - 

cC7d 

b 1 

f b 


Ida 

<*fb >,y 

>VOCE 3* 

C 07 f 

8d 

0f 

d4 

sta 

*d40f 

1High-Byte 

c 08S 

88 



dey 


; 

c 033 

b 1 

fb 


1 da 

<*fb>,y 

y 

C 085 

8d 

0e 

d4 

sta 

*d40e 

> Lou-Byte 

c 088 

83 



dey 


ì - 

c 089 

b 1 

fb 


Ida 

<*f b>,y 

«Preleva il 

C08b 

a a 



tax 


; i 1 byte di 

C08c 

29 

01 


and 

***0 1Q 

lcontro 11o 

C03e 

f 0 

05 


beq 

*C095 

« in base a 

C080 

a9 

00 


Ida 

*t*00 

leu i vengon 

C092 

8d 

04 

d4 

sta 

*d404 

«settati i 

C095 

8a 



txa 


«registri d 

c 098 

29 

02 


and 

t**02 

;uaveform. 

C098 

f0 

05 


beq 

*C09f 

1 

C09a 

a9 

00 


Ida 

***00 

1 

c09c 

3d 

0b 

d 4 

sta 

Sd40b 

1 

c 09-f 

Sa 



txa 


; 

C0a0 

29 

04 


and 

1**04 

ì 

C0a2 

#0 

05 


beq 

*c0a9 

i 

c 0a4 

a9 

00 


Ida 

***00 

i 

C0a6 

8d 

12 

d4 

sta 

*d4 12 

; - 

C0a9 

84 

f d 


sty 

*f d 

(Salva il 

c0ab 

a5 

01 


Ida 

*01 

«contatore i 

c0ad 

09 

01 


ora 

***01 

«attiva ROM 

c0af 

85 

01 


sta 

*01 

« a000-bfff 

c0b 1 

ad 

04 

C0 

Ida 

*c004 

1- 

C0b4 

3d 

04 

d 4 

sta 

*d404 

> 'Accende' 

C0b7 

ad 

0b 

C0 

Ida 

*c00b 

« ognuna de 1 

c0ba 

8d 

0b 

d4 

sta 

*d40b 

« 1 e tre voc 

cPbd 

ad 

12 

C0 

Ida 

*c0 12 

1 

C0C0 

3d 

12 

d4 

sta 

*d4 12 

| - 

c0c3 

68 



Pia 


«Preleva i 

C0c4 

a8 



tay 


Jreg istr i 

C0c5 

68 



P 1 a 


«dallo Staci 

c0c8 

aa 



tax 


«a salta ad 

C0c7 

68 



P 1 a 


« IRQK. 

C0c8 

4c 

31 

e a 

J mp 

Se a 3 1 

1- 

c0cb 

8d 

04 

d4 

sta 

*d404 

«FINE branoi 

c0ce 

8d 

0b 

d 4 

sta 

*d40b 

« 'spegna‘ il 

c0d 1 

8d 

12 

d4 

sta 

*d4 12 

«SIO, r ipr1- 

C0d4 

8d 

13 

d4 

sta 

*d4 18 

latina il 

C0d7 

a9 

31 


Ida 

***3 1 

«vettore d 1 

C0d9 

8d 

14 

03 

sta 

*0314 

« IRQ,riatt i ■ 

c0dc 

a9 

e a 


Ida 

«t*e a 

«va la ROM, 

c0de 

8d 

15 

03 

sta 

*0315 

«e salta In- 

c0e 1 

a5 

01 


Ida 

*0 1 

«fine ad 


C0e3 

09 

01 


ora «t*0 1 

« 1RQK. 

C0e5 

85 

01 


sta *01 

y 

C0e7 

68 



Pia 

y 

C0e8 

a8 



tay 

y 

C0e9 

68 



Pia 

y 

c0ea 

sa 



tax 

y 

c0eb 

68 



Pia 

y 

c0ec 

4c 

31 

ea 

Jmp *ea31 

i - 

c0ef 

a9 

00 


Ida «**00 

«Oup1 tea in 

c0f 1 

8d 

04 

d4 

sta *d404 

«parte la 

C0f 4 

8d 

0b 

d4 

sta *d40b 

«rout ine 

C0f 7 

8d 

12 

d4 

sta *d412 

«precedente. 

c0f a 

8d 

18 

d4 

sta *d418 

«Serve a in- 

c0f d 

78 



sei 

« terrompere 

caie 

a9 

31 


Ida N*31 

«il brano 

C 100 

8d 

14 

03 

sta *0314 

« 'dall 'e- 

c 103 

a9 

ea 


Ida HSea 

«sterno' 

c 105 

Bd 

15 

03 

sta *0315 

« <Sys 49391 ) 

c 108 

58 



cl i 

1 

c 109 

60 



rts 

y 

c 10a 

a9 

36 


Ida tt*36 

y - 

c 10C 

85 

01 


sta *01 

«Routine di 

c 10e 

a9 

fb 


Ida «t*fb 

«reg istra- 

c 1 10 

a 6 

fe 


ldx «fe 

«zionet non 

c 1 12 

a4 

f f 


ldy *ff 

« fara' parte 

c 1 14 

20 

d8 

f f 

jsr *ffd8 

« de 1 prò - 

c 1 17 

85 

f d 


sta *fd 

«gramma de- 

c 1 19 

a9 

37 


Ida ***37 

« finitivo . 

c 1 Ib 

85 

01 


sta *01 

y 

c 1 ld 

60 



rts 

i - 


Listato 3 • Un esempio di esecuzione sonora. 

1 REM*»»*»*»»******»*»***»****»**»»»*»** 

2 REM ANTONIO VIVALDI 

3 REM CONCERTO PER FLAUTINO IN DO MAG. 

4 REM OP.44,11 

6 REM 

7 REM ARRANGIAMENTO E PROGRAMMAZIONE 

8 REM DI TOMMASO PALERMO 

9 REM*********************************** 
15 POKE53280,6 :P0KE53281 p 6:PRINT"(CLR}(Y 

ELLOW} {6 CUR .GIU}" 

20 PRINTTAB(14)"V I V A L D 1(4 CUR.GIU} 

n 

25 PRINTTAB(16)"OP. 44.11{4 CUR.GIU}" 

30 PRINTTAB(10)"CONCERTO PER FLAUTINO{CU 
R.GIU} " 

35 PRINTTAB(8)"{BLUE}PRIMO MOVIMENTO : A 
LLEGRO(YELLOW)":G0SUB190 
40 LI-54272:H1-LI+1:W1-L1+4:A1-L1+5:S1-L 
1 +6 

42 L2«54279:H2«L2+1 : W2-L2+4:A2-L2+5:S2-L 
2 + 6 

44 L3-54286:H3 = L3*1 :W3-L3♦4 : A3 = L3 + 5:S3-L 
3*6 

46 POKE54296,15:A-3841:B-l624l:F-4 
50 GOSUB270:GOSUB100:GOSUB200 
60 PRINT"(BLUE}(CUR.SU}";:PRINTTAB(8)"SE 
CONDO MOVIMENTO : LARGO(YELLOW}":GOSU 
B1 90 


) 
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Music utility 


COMMODORE 64 


Seguito listato 3. 

65 F- 1 :P0KEA1 , 127 : P0KEA2,106 :POKEA3,10 6 : 
P0KES1 , 79:POKES2,64:POKES3,64 

66 A = 1 6250 :B=1 7 002 :GOSU B100:A*16250:B=17 
002 :GOSUB100 

67 A-1 701 8:B-1 84 58:GOSUB100 :A=1701 8 : B- 1 8 
466 :GOSUB100 :G0SUB200 

70 PRINT"(CUR.SU}fBLUE}"; : PRINTTAB(9 ) "FI 
N A LE : ALLEGRO{2 SPC}ASSA X{YELLOW}":F 
= 4 :GOSUB190 

75 A « 1 8640 :B = 29792:GOSUB100 

99 POKE54296,0 : END 

100 FORI-ATOBSTEP8 
110 TI$”"000000" 

120 IF(PEEK(I+7)AND1)THENP0KEW1,0:P0KEH1 
,PEEK(I+1):POKEL1,PEEK(I+2):POKEW1,W 
W 

130 IF(PEEK(I+7)AND2)THENP0KEW2,0:POKEH2 
,PEEK(I + 3) :POKEL2,PEEK(I+4):P0KEW2,3 
3 

140 IF(PEEK(1 + 7)AND4)THENPOKEW3,0 :P0KEH3 


,PEEK(I+5):P0KEL3.PEEK(1 + 6) :POKEW3> 3 
3 

145 IF(PEEK(I+7)AND8)THENGOSUB250 
150 IFTI<PEEK(I)*FTHEN150 
160 NEXT: RETURN 

190 FORI-5 6O50TO56150 :POKEI,7 :FORT-0TO30 
:NEXT:NEXT:RETURN 

200 FORI-1 780T01 900 :POKEI,32 :FORT-OTO30: 

NEXT:NEXT:RETURN 
250 R.-R+1 

255 ONRGOTO260,270,280,290,270,260,270,2 
60,280,290,270,260,270,260,300,305,2 
70 

2 60 POKEAl ,127:P0KES1 ,79:WW=17:RETURN 
270 POKEAl,106:POKEA2,106 :POKEA3,26 :POKE 
SI,32 :POKES2,32 :POKES3,170 :WW-33 :R 
ETURN 

280 POKEAl ,127:P0KES1 ,79 :WW-17 :POKEA3,10 
6:POKES3>32:RETURN 
290 P0KEA3,26 :POKES3,170 : RETURN 
300 F*=6 : RETURN 
305 F=4;R-12:RETURN 


Totocalcio per Msx 
(Personal Software n. 35) 
L’istruzione Width nel Basic Msx 

Come molti di voi forse già sapranno, il Basic Msx permette di 
dimensionare la grandezza del video scegliendo il numero di 
colonne con cui deve essere stampato il testo nei modi 
Screen 0 e Screen 1 

Questa istruzione è Width (n), dove n è appunto il numero di 
colonne che deve essere scelto tra un massimo di 40 per il 
modo 0 e un massimo di 32 per il modo 1 
Purtroppo però all'accensione del computer, non tutte le 
marche si comportano allo stesso modo: per esempio lo 
Spectravideo SVI 728 si pone in modo Screen 0 con 39 colon¬ 
ne di testo, mentre i computer Philips VG 8000 partono con 37 
colonne di testo. 

Questo può comportare degli errori di incolonnamento quan¬ 
do si copia un listato o si carica un programma scritto con un 
computer Msx di marca diversa. È naturale che per ovviare a 
questo inconveniente basta aggiungere al listato, ove non sia 
già presente, l'istruzione Width con il giusto dimensionamen¬ 
to. 

Paolo Ferrami 


Grand Prix per C 64 
(Personal Software n. 31) 

Nel programma Grand Prix per C 64 la linea 500 va cosi 
modificata: 

SI = 0:GOSUB 380:IF NO$ = "N"THEN 
OPEN 1.1,2,NF$:GOTO 550 



Allora spedisci subito il tagliando per una prova GRATIS se vuoi fa¬ 
cilmente imparare e creare tu stesso il software con il corso BASIC 
deM'IST. 

-X 

IST La scuola del progresso ™ 

Via S. Pietro 49 • 21016 LUINO (VA) • Tel. 0332/53.04.69 

SI, desidero ricevere • in visione gratuita, con invio raccomandato e senza al¬ 
cun impegno - la prima dispensa in Prova di Studio per un periodo massimo di 
3 settimane. Se io non Vi ritornerò la dispensa entro tale termine, sarò auto¬ 
maticamente iscritto al Vostro corso di BASIC e riceverò regolare conferma. 

Cognome _ 

Nome_Età_ 

Via_N_CAP_Città_ 




















RETI 





Input function 


U n giorno, tra amici, si discuteva 
sulla possibilità di ridefinire una 
funzione matematica con una 
formula immessa in input da un 
programma Basic. Come si sa, in questi 
casi, generalmente si deve interrompere 
l’esecuzione del programma, editare la li¬ 
nea contenente l’istruzione Def e dare 
nuovamente il Run. La procedura non è 
elegante, ma, in mancanza d’altro, diventa 
accettabile. Ovviamente non funziona 
quello che potrebbe sembrare l’uovo di 
Colombo: accettare la formula in input 
con la stringa AS c poi scrivere Def Y 
= AS. 

Il programma che segue riesce nell’inten¬ 
to modificando i byte che codificano la 
linea di programma contenente l’istruzio¬ 
ne Def mediante delle Cali Peek e Cali 
Load. Per il suo funzionamento è richiesto 
l’Extended Basic e l’espansione di memo¬ 
ria; quest’ultima non perché il programma 
sia troppo voluminoso, ma perché con tale 
configurazione il programma invece di ri¬ 
siedere nella Vdp Ram viene trasferito nel¬ 
la high memory dove può essere facilmen¬ 
te manipolato. 

Alla linea ioo viene definita la funzione 
Y = X*z; la linea no legge il valore dei 
puntatori alla Tavola dei numeri di linea, 
mentre le seguenti calcolano l’indirizzo di 
memoria della linea 100. Il ciclo alla linea 
140 legge e stampa in forma decimale i 
byte che costituiscono la linea 100. 

Se viene dato il Run, sullo schermo ap¬ 
paiono i nove numeri riportati al termine 
del listato. 137 è il token della parola riser¬ 
vata Def, 89 è il codice Ascii della lettera 
Y, 190 è il token del segno —, 88 corri¬ 
sponde alla X, 195 al segno di moltiplica¬ 
zione, seguono i codici 200 e 1 e infine 50 
che è il codice Ascii del numero due. L’ul¬ 
timo byte della linea è sempe impostato a 
zero, mentre all’indirizzo immediatamente 
precedente la linea stessa c’è un byte che ne 
indica la lunghezza. Il codice 200 precede 
sempre una costante, il valore uno che lo 
segue sta a indicare che tale costante è 
formata da una sola cifra. A esempio il 
numero dieci verrebbe codificato con la 


sequenza 200, 2, 49, 48. Anche il punto 
decimale viene considerato alla stregua 
delle cifre. 

È istruttivo cambiare la funzione presen¬ 
te nella linea 100, dare il Run e ottenere 
l’immagine della linea stessa cosi come si 
trova in memoria. Nel listato 2 la funzione 
è stata cambiata in Y = Sin(X). 

Noti i valori token delle varie funzioni 
matematiche: Int, Sin, Log, eccetera, si 
può usare l’istruzione Cali Load per inter¬ 
venire direttamente nella Ram. Ma atten¬ 
zione, se la nuova funzione occupa più 
byte della precedente c’è il rischio di sov¬ 
rapporre due linee del programma. Que¬ 
sto non succede durante l’editing usuale 
poiché in tal caso il sistema operativo si 
incarica di cambiare gli indirizzi e di spo¬ 
stare tutta la tavola dei numeri di linea. La 
figura 1 illustra cosa avviene quando si 
edita la linea 100 scivendo una nuova fun¬ 
zione che occupa un byte di memoria in 
meno della precedente. Come si vede è 
cambiato l’indirizzo di linea ed è stata spo¬ 
stata di una locazione tutta la Tavola dei 
numeri di linea. 

Il programma Basic in grado di emulare 
sotto questo aspetto il sistema operativo 
risulterebbe troppo lento, ma c’è il modo 
di aggirare l’ostacolo. La prima volta si 


100 DEF Y=X*2 100 DEF Y=S1N(X) 


-256 +-+ 

I ! 

1 TAVOLAI 

i NIJMERI i 

: di i 

: LINEA ! 

-246 +-+ 

245 LUNS.100 

■244 +-+ 

I ! 

: LINEA ! 

i ioo ; 
i : 

236 +-+ 

235 LUNG.110 
234 +-+ 

jLINEA ! 

: 110 1 

: 1 


-264 +-+ 

I s 

: TAVOLA I 
I NUMERI : 

s : 

i di ; 

: linea i 
: 

—245 +-»- 

-244 LUNG.100 

-243 +-+ 

! I 

.•LINEA ! 

: : 

| 100 j 

—236 +-■+■ 

-235 LUNG.110 
-234 |-+ 

! LINEA Ì 
: : 

: 110 ! 


Figura 1 - Il sistema operativo gestisce in modo 
dinamico gli spazi riservati al programma e alla 
tavola dei numeri di linea. Editando una linea di 
programma, non solo cambia il suo indirizzo di 
partenza, ma viene allocata l'intera Tavola dei 
numeri di linea. 


scrive una linea Def con una funzione che 
occupi quanto più spazio possibile, in que- 
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Input function 


TEXAS TI99/4A 


sto modo: Def Y=X + X + X + X..., fino 
a occupare cinque righe di schermo. Suc¬ 
cessivamente si accetta in input una stringa 
contenente una funzione, la si codifica con 
i valori token caricandola in memoria so¬ 
pra la precedente e si modifica il byte che 
contiene la lunghezza della linea interessa¬ 
ta. I caratteri eccedenti, cioè 
X-f-Xq-X-p..., rimangono per così dire 
nascosti, non appaiono con un List c ven¬ 
gono del tutto ignorati quando viene cal¬ 
colato il valore della funzione; essi vengo¬ 
no tuttavia conservati con i comandi Save 
e Old e restano a disposizione per scrivere 
formule più o meno lunghe. 

Il programma del listato 5 è solo dimo¬ 
strativo, ma può ben adattarsi ad altri pro¬ 


grammi ove sia richiesta una tecnica analo¬ 
ga, a esempio quando si voglia disegnare il 
grafico di diverse funzioni senza dover 
interrompere l’esecuzione per ridefinirle. 
Segue una breve descrizione delle princi¬ 
pali routine. 

120 - Definizione della funzione. 

130 - Dimensionamento delle matrici e 
caricamento dei valori token. 

140-160 - Ricerca dell’indirizzo della linea 
120. 

170 - Input della funzione. 

180-240 - Codifica della funzione con i 
valori token. 

250-260 - Controllo della corrispondenza 
tra parentesi aperte e chiuse. 

270 - Scrittura in memoria dei byte che 


costituiscono la linea Def. 

280-300 - Calcolo della funzione per alcuni 
valori di X. 

310-330 - Data contenenti i valori token. 

Il programma accetta solo funzioni nella 
variabile X ed è protetto contro alcuni 
errori, ma non possiede un controllo com¬ 
pleto della sintassi. Sono errori recupera¬ 
bili parole riservate diverse da Atn, Cos, 
Int, Log, Sin, Tan, Pi; errori ortografici, 
variabili diverse dalla X, parentesi spaiate; 
sono invece irrecuperabili errori nella 
struttura .della formula. Se si scrive F 
(X) = X.5 + *7 2 il programma si arresta, 
compare un messaggio d’errore da parte 
del sistema e per riprendere bisogna dare 
nuovamente il Run. ■ 


Listato 1 - Un piccolo programma d'esempio e il suo output. 

100 DEF Y=X*2 

110 CALL PEEK(-31952,A, B,C,D) : : A=A*256+ 

B-65536 : : C=C*256+D-65536 

120 FOR I=C-3 TO A STEP -1 :: CALL PEEK< 

I, B, D, E, F) : : B=B#256+D :: IF B=100 THEN 

140 

130 NEXT I :: STOP 

140 E=E*256+F-65536 :: I=E-1 :: CALL PEE 

K(:I, B) : : FOR I=E TO E+B-l :: CALL PEEK<I 
,BY) : : PRINT BY; : : NEXT I 
RUM 

137 89 190 88 195 200 1 50 0 


Listato 2 - Sostituendo questa riga nel listato precedente 
si ha un nuovo output. 

100 DEF Y=SIN(X) 


RUN 

137 89 190 210 183 88 182 0 


Listato 3 - Il programma dimostrativo. 

120 DEF Y=X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+ 
X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+ 

X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+ 

X+X+X+X+X+X+X+X+X+X 

130 CALL INIT :: DIM TV (256) , TT$(15,2) : : 

FOR J=0 TO .15 :: READ TT*(J , 1>, TT* (J,2) 

: : NEXT J 

140 CALL PEEK(-31952,A,B,C,D) : : Z=65536 
:: A=A*256+B-Z :: C=C*256+D-Z :: I=C-3 
150 FOR I =C—3 TO A STEP -4 :: CALL PEEK( 
I,B,D,E,F)s: B=B*256+D :: IF B=120 THEN 
E=E*256+F-Z :: GOTO 170 


160 NEXT I : : STOP 

170 CALL CLEAR :: INPUT "F(X)=":FN* :: P 
RINT RPT* 28) : : PRINT :: CTR=0 :: FG 

=0 

180 FOR J=1 TO LEN <FN*): : W$=SEG*(FN$,J, 
1):: Q=ASC(W$): : IF <Q>47 AND 0<58)0R Q= 
46 THEN 200 ELSE IF FG=1 THEN TV(CW)=NC 


: : FG=0 


190 FOR K=0 TO 15 :: P=P0S (FN*,TT* (K, 1) , 
J > : : IF POJ THEN 220 ELSE CTR=CTR+1 : : 
TV(CTR)=VAL <TT$ (K,2)>: : J=J+LEN(TT*(K, 1) 
)-l : : GOTO 240 

200 IF FG=0 THEN CTR=CTR+3 :: TV(CTR-2)= 
200 :: CW=CTR-1 :: NC=1 :: TV(CTR)=Q :: 
FG=1 : : GOTO 240 

210 CTR=CTR+ 1 :: TV(CTR)=Q :: NC=NC+1 :: 

GOTO 240 
220 NEXT K 

230 PRINT "ERRORE NELLA FORMULA" :: FOR 
TM=1 TO 500 :: NEXT TM :: PRINT :: GOTO 
170 

240 NEXT J :: IF FG=1 THEN TV(CW)=NC 
250 CTR=CTR+1 :: TV (CTR)=0 :: N=CTR : : P 
1=0 :: P2=0 :: FOR J=1 TO N : : P1=P1+(TV 
( J )=182): : P2=P2+ (TV ( J>=183) 

260 NEXT J :: IF PIOF'2 THEN 230 ELSE 1 = 
E-1 :: BY=N+3 :: CALL LOAD(I ,BY) 


270 CTR=0 : : FOR I=E+3 TO E+2+N : : CTR=C 
TR+1 :: BY=TV(CTR>:: CALL LOAD(I , BY): : N 
EXT I 

280 INPUT "X = " : X :: PRINT "F<X> = ";Y : 
: PRINT "STESSA FUNZIONE? (Y/N) " 

290 CALL KEY<0, K,S) : : IF S=0 THEN 290 EL 
SE CALL HCHAR(23,3,32,28) 

300 IF K=78 THEN 170 ELSE IF K=89 THEN 2 
80 ELSE 290 

310 DATA ">","182", " (","183","=", "190"," 
+","193","194","195", "196" 
320 DATA "197", "ATN", "204", "COS", "20 

5","INT", “207","LOG","208", "SIN”,"210"," 
TAN","212" 

330 DATA "PI","221","X","88" 
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I SEGRETI DEI PERSONAL 


di Tullio Pollcastro 


Figura 1 - La funzione Prinl Using. 


5 INPUT X,y 
y Gu T O 100 

IL' REM Subroutine PRINT USING 
Il REM Ri. l input, x sii. o cifre 
intere; y =n.o cifre deciiùdU, ri 
= n u in ero da £ *. a n p a r e 

li LET os=i" ' HMD iì>=0j+i"-" 
RND n<0i: LET n=RBò n 

ìs lET ni=lNT ri: LET r. s=òtr$ n 
i LET t=LEN n %. LET d=H-ni : 1F 
d 1011-yj THEN LET d$=".00000000 
00' i Tu y+iJ : Gu IO 

iU LET da* tòTR* td +5>* 101 i -y-1 > 

) ) i 1 + i. d > = . 1 • TO y + 1 + i d > = . 1 ) i 

Ì5 LET fu 4 = •• ** ( Tù X-U + 

ri i 

30 PRINT £*+«$+J$. RETURN 
100 INPUT n. IT LEN 3TR$ INT RE 
E ri >X THEN 6EEP . 5, i J Gu TG i©0 
110 GÙ SUB 10: GG TG 100 


Come realizzare 
la funzione Print Using 
sullo Spectrum 

N el ben noto computer della 
Sinclair, che pure dispone di 
molte caratteristiche inte¬ 
ressanti (accresciute da quan¬ 
do si è resa disponibile l’Interfaccia i), 
mancano alcune funzioni o comandi Basic 
che alcuni dei concorrenti invece hanno di 
normale dotazione. 

Una di queste caratteristiche è quella di 
poter modellare le stampe di valori nume¬ 
rici secondo un formato prefissato: ciò è 
particolarmente utile quando si devono a 
esempio stampare tabelle in cui diversi im¬ 
porti debbono essere disposti opportuna¬ 
mente incolonnati (a esempio giustificati a 
sinistra sulla cifra delle unità, se interi; 
oppure con i punti decimali su di una stes¬ 
sa colonna, se comprendono una parte de¬ 
cimale). 

Alcuni Basic dispongono a questo scopo 
del comando Print Using; a esempio dopo 
aver inserito Print Using ###.####, n il nu¬ 
mero n verrà stampato con tre cifre intere 
(premettendo degli spazi vuoti se le cifre 
della parte intera sono meno di tre) e quat¬ 
tro cifre decimali (arrotondate se superas¬ 
sero tale numero, o completate con degli 
zeri se fossero in numero inferitirc). Lo 
Spectrum non dispone di questa caratteri¬ 
stica: però non è difficile realizzare, con 
una opportuna subroutine che può venire 
richiamata ogni volta che si devono stam¬ 
pare numeri secondo un determinato for¬ 
mato, qualcosa di strettamente analogo c 
perfettamente idoneo allo scopo. 

La subroutine in questione è relativa¬ 
mente semplice, e occupa i numeri di linea 
ila io a jo del programmino riportato figu¬ 
ra i. 

Prima della chiamata della routine devono 
venire definiti (una volta per tutte, oppure 
modificando valori precedenti se si deside¬ 
rano adoperare formati diversi in varie 
occasioni) i valori delle variabili: 

• x = numero di cifre intere (se il numero 
da stampare avrà un numero di cifre intere 
inferiore a x verranno aggiunti in testa 
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degli spazi, oppure un singolo o prima del 
punto decimale se il numero fosse inferio¬ 
re a uno); 

• y = numero di cifre decimali desiderate 
(il numero verrà stampato con l’ultima 
decimale arrotondata al valore superiore, 
se la cifra successiva è maggiore di cinque; 
se i decimali esistenti sono in numero infe¬ 
riore a y, verranno aggiunti degli o non 
significativi). 

Naturalmente prima della chiamata della 
routine bisognerà pure definire il valore di 
n, numero da stampare (nel programmino 
dimostrativo esso viene ricavato per In¬ 
put). 

Come dimostra la riga too, a cui in defini¬ 
tiva si riduce il demo, si è previsto che nel 
caso che il numero n fosse superiore al 
massimo numero di x cifre intere, ossia la 
lunghezza della parte intera fosse superio¬ 
re a x, non venga effettuata alcuna stampa, 
ma venga emesso un segnale di errore (a- 
custico, nel caso), e ripetuta la richiesta del 
valore di Input. Questa regola può venire 
modificata, se cosi desiderato, adattandola 
alle proprie necessità. 

La tecnica adoperata nella subroutine, co¬ 
me è abbastanza naturale, passa attraverso 
la conversione del valore numerico di n in 
una stringa, sulla quale poi si interviene 
grazie alle potenti istruzioni di slicing di 
cui è dotato lo Spectrum, facendo pure 
ricorso alle funzioni StrS, Abs, Int e Len. 

La subroutinc utilizza alcune variabili in¬ 
terne (ni, sS, mS, cl$, d, I) per cui bisogna 
stare attenti a non usare gli stessi nomi di 
variabili nel programma principale (ovve¬ 


ro, modificare i nomi usati nella subrouti¬ 
ne). Il loro significato è il seguente: 
ni = parte intera di n (o meglio del suo 
valore assoluto, se n è negativo); 
n$ = stringa corrispondente a ni; 

1 == lunghezza della stringa nS (=numero 
di cifre di n intere; i comunque se n < i); 
d = parte decimale di n. 
mS e dS vengono costruite opportuna¬ 
mente dalla subroutine, tenendo conto dei 
casi particolari 

Si noti che, se il numero di cifre intere o 
decimali di n fosse superiore a otto o a 
dieci, rispettivamente, si dovrebbero in¬ 
crementare i numeri degli spazi vuoti o 
degli o specificati nelle stringhe costanti, 
poste fra virgolette, delle linee 25 e 15 
rispettivamente. 

La subroutine è in grado di accettare anche 
numeri nel formato (per esempio) 1,2 F. 5 
(esponenziale), purché superino il test sul 
numero di cifre intere inserito nel pro¬ 
gramma (vedi linea too). 

Per un uso pratico, poiché la subroutinc 
comprende una propria istruzione generi¬ 
ca di Print che prescinde dall’indicazione 
della posizione iniziale, questa dovrà esse¬ 
re predefinita prima della chiamata della 
subroutinc tramite un’istruzione tipo 
Print At r,c; (il punto-e-virgola finale c 
essenziale). 

Poiché, come si è detto, con l’aggiunta di 
eventuali spazi la subroutine stampa sem¬ 
pre numeri col medesimo numero di cifre 
intere (comprendendo fra queste anche gli 
spazi), l’effetto c di un allineamento ordi¬ 
nato, se nelle righe successive la posizione 








L'uso dell'unità a dischi Commodore 


ZX SPECTRUM 


COMMODORE 64 


Figura 1 - Tabella di conversione. 


{HOME}.HOME 

{ CL R }.PULIZIA SCHERMO 

{CUR.SU}.CURSORE IN ALTO 

{CUR.GIU}.CURSORE IN BASSO 

{CUR.DES}.CURSORE A DESTRA 

{ CUR . SIN }.CURSORE A SINISTRA 

{SPC}.SPAZIO 

{ RVS ON1.REVERSE ON 

{ RVS OFF }.REVERSE OFF 

{ INST }.INSERT 

{FI}.TASTO FI 

{ F2 }.TASTO F2 

{ F3 }.TASTO F 3 

{F4}.TASTO F 

{ F5 }.TASTO F5 

{ F6 }.TASTO F6 

{ F7 }.TASTO F7 

{ F8 }.TASTO F8 

{BLACK}.COL. NERO (CTRL+1) 

{WHITE}.COL. BIANCO (CTRL + 2) 

{RED}.COL. ROSSO (CTRL + 3) 

{ C Y AN }.COL. CIANO (CTRL + H) 

{PURPLE}.COL. PORPORA (CTRL+5) 

{GREEN}.'..COL. VERDE (CTRL + 6) 

{BLUE}.COL. BLU (CTRL + 7) 

{YELLOW}.COL. GIALLO (CTRL+8) 

{ORANGE}.COL. ARANCIO (CBM+1) 

{BROWN}.COL. MARRONE (CBM + 2) 

{ LT . RED }.COL. ROSSO CHIARO (CBM + 3) 

{ GRA Y1 }.COL. GRIGIO 1 (CBM + 4) 

{ GRA Y2 }.COL. GRIGIO 2 (CBM + 5) 

{LT.GREEN}.COL. VERDE CHIARO (CBM + 6) 

{LT.BLUE}.COL. BLU CHIARO (CBM + 7) 

{ GRA Y3 }.COL. GRIGIO 3 (CBM + 8) 


I CARATTERI GRAFICI, OTTENUTI CON LA 
PRESSIONE DEI TASTI ’SHIFT’ E ’CBM', 
SONO CODIFICATI IN MODO DA INDICARE IL 
TASTO DA PREMERE ASSIEME A 'SHIFT' 0 
'CBM' . ES. IL CUORICINO E' CODIFICATO 
CON {SH S}. 

UN NUMERO DENTRO LE PARENTESI INDICA 
LE VOLTE CHE IL TASTO VA PREMUTO. 


(=colonna) iniziale di stampa viene man¬ 
tenuta Fissa. In altre parole, fissando la 
posizione iniziale col Print At di cui sopra 
(naturalmente è anche possibile stampare 
da inizio riga senza nessun Print prelimi¬ 
nare), i numeri stampati su righe successi¬ 
ve avranno il punto decimale allineato. 

Una caratteristica molto importante eli 
questo procedimento è che con esso è pos¬ 
sibile stampare con lo Spectrum numeri 
con qualsiasi numero di cifre intere o deci¬ 
mali, superando il limite delle otto cifre 
significative posto dal normale Print di 
costanti o variabili. Si può inoltre ancora 
fare notare che se si pone y (numero di 
cifre decimali) eguale a o, non vengono 
stampati decimali, ma permane la presenza 
del punto decimale dopo la cifra delle uni¬ 
tà: se si vuole eliminare questo inconve¬ 
niente occorre sostituire nella inca 15 al 
punto iniziale posto prima della serie di 
o uno spazio. Si deve però osservare che in 
questo particolare caso non si ha arroton¬ 
damento ma solo troncamento alla parte 
intera. B 



L’uso dell’unità 
a dischi Commodore 

Q uesto programma si rivolge agli 
utilizzatori del Commodore C 
64 c dell’unità dischi 1)41. 
Quando si passa dall’uso del re¬ 
gistratore a quella del disco, a volte, ci si 
trova spaesati dato il diverso trattamento 
da riservare a qucst’ultima periferica. Fac¬ 
ciamo un po’ di ripasso dei comandi essen¬ 
ziali per il corretto funzionamento del si¬ 
stema c per lo sfruttamento a pieno delle 
possibilità offerte dalla macchina. 

Appena acquistato un dischetto la prima 
operazione da fare e la formattazione; essa 
consiste nel preparare il supporto per le 
successive operazioni di scrittura e lettura. 
Senza tale operazione il sistema operativo 
non riconosce come suo il disco c non è in 
grado di operare su di esso. 

Per effettuare questa funzione bisogna, 
una volta inserito il dischetto nel drive, 
dare direttamente questi comandi: 
Open 15,8,15,“N:Nomc disco, ID”: Closc 


15 e <Ret>. II nome del disco è una 
stringa alfanumerica massimo lunga 18 ca¬ 
ratteri mentre l’ID sono due caratteri alfa- 
numerici anch’essi che identificano il disco 


stesso. Sarebbe opportuno che ogni di¬ 
schetto ne avesse uno differente. La for¬ 
mattazione potrà essere anche parziale 
dando il comando nel seguente modo: 
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Opcm5,8,15,“N:Nome disco”: Cinse 15; 
in questo modo esso manterrà lo stesso 
numero di ID e l’operazione sarà molto 
più rapida. 

Altra procedura è quella di copia essa per¬ 
mette di copiare su uno stesso disco il 
medesimo file con un nome diverso. 1 co¬ 
mandi da dare sempre in modo diretto 
sono: ( )pen 15,8,15,“C:Nome da assegnare 
alla copia = Nome file da copiare”: (dose 
15; i nomi non debbono essere lunghi più 
ili 16 caratteri. 

Esiste anche la procedura di Renarne uti¬ 
le quando si vuole cambiare il nome a un 
programma già precedentemente memo¬ 
rizzato, per fare ciò bisogna digitare : 
Openi 5,8,15,“R:Nuovo nome = Vecchio 
nomc”:Closei 5, anche in questo caso i due 
nomi non potranno essere più lunghi di 16 
caratteri. 

Un’operazione pericolosa, ma ugualmen¬ 
te utile, è quella chiamata Scratch: permet¬ 
te la cancellazione di un file presente sul 
dischetto. I comandi da dare sono: 
Open15,8,15,“S:Nome del file da can¬ 
cellare”: Close 15 (il nome sempre 16 ca¬ 
ratteri). Il file cosi cancellato non è più 
presente nella directory del dischetto e 
quindi non più caricabile; esso si potrebbe 
recuperare con altri programmi di utility. 
Un altro comando da dare in modo diretto 
è il Validate esso serve per cancellare file 
mal chiusi, recuperare spazio sul dischetto 
eventualmente mal sfruttato, eccetera. Per 
l’uso ili questo comando bisogna stare at¬ 
tenti se sul dischetto sono presenti file del 
tipo “Rei” nel qual caso essi verranno can¬ 
cellati, i comandi da dare sono: Open 15, 
8,15, “V”: Close15. 


Uno degli aspetti più interessanti nell’uso 
dell’unità floppy è quello di avere la possi¬ 
bilità di leggerne il contenuto in una spece 
di indice chiamato directory; su di esso 
sono riportati i seguenti dati: nome del 
disco, identificazione dello stesso, formato 
Dos (Az), i nomi dei programmi memoriz¬ 
zati (il numero di blocchi occupati da essi e 
il tipo: Prg, Seq, Rei, Usr). il numero di 
blocchi liberi. Ogni blocco contiene 256 
byte. Per ottenere la directory bisogna di¬ 
gitare: Load “S”, 8 < Ret > e poi < List > 
essa naturalmente potrà essere stampata su 
carta usando questi comandi: Open4,4: 
Cmd4: List e, per chiudere il canale con la 
stampante Print#4:Close4. Purtroppo il 
Basic limitato implementato sul C 64 fa sì 
che ogni volta che si chieda la directory 
viene cancellato il programma Basic in me¬ 
moria (non esiste il comando Catalogl). 

Dopo questo lungo ripasso veniamo a 
quello che il programma intende offrire. 
Esso vorrebbe essere un valido supporto 
per l’uso dei comandi teste analizzati. Una 
volta digitato il programma, prevede, con 
l’aiuto di un semplice menu, tutte le varie 
opzioni di cui sopra. Scelta l’opzione desi¬ 
derata, confermata l’intenzione di prose¬ 
guire, il programma vi guida all’inseri¬ 
mento di tutti i dati necessari affinchè que¬ 
sta vada a buon fine. Esiste sempre la pos¬ 
sibilità di ritornare al menu principale 
semplicemente premendo la “M”. Una 
funzione di Input controllato permette la 
verifica costante di tutti i dati immessi. 

Vediamo ora le principali caratteristiche 
del programma. Come potrete notare il 
menu si presenta in una veste insolita ri¬ 
spetto a quella che siamo normalmente 


abituati a vedere. L’implementazionc di 
esso va dalla riga 20 alla riga 280 (esclusa la 
riga 50) e può con facilità essere inglobato 
in un qualsiasi vostro programma. Per 
modificare il numero delle opzioni basta 
cambiare il valore della variabile N alla 
linea 40. Dimenticavamo: questo menu 
riesuma un carattere raramente usato il 
ChrS(i8(>) che nel set minuscolo appare 
cosi (v). 

Si può vedere anche che dopo ogni Input 
non appare sullo schermo l'antiestetico 
punto interrogativo, per fare ciò si è ricor¬ 
so a un piccolo artificio: lo si è fatto diven¬ 
tare dello stesso colore dello sfondo (vedi 
le istruzioni delle righe 550-560-480 ecce¬ 
tera). 

Interessante anche la routine che va dalla 
riga 1000 alla riga 1190 che permette di 
leggere la directory senza uscire dal pro¬ 
gramma stesso e, molto più importante, 
senza cancellarlo; anche questa routine po¬ 
trà essere implementata e usata nei vostri 
programmi. 

Il programma prevede anche una routine- 
di intercettazione c segnalazione di errori 
provenienti dal non corretto uso dell’unità 
1541. (Vedere istruzioni alle righe 
1290/1550). Ultima cosa, con l’istruzione 
che appare alla riga 10 si inibisce la funzio¬ 
ne di Run/Stop Restore e quindi per uscirt¬ 
ela! programma, bisogna optare per la scel¬ 
ta numero sette che riporta tutto alle con¬ 
dizioni normali di lavoro. Un consiglio: 
inserite questa istruzione solo quando sie¬ 
te sicuri che il programma giri perfetta¬ 
mente. B 


Listato 1 - Il programma per l'uso dell'unità a dischi Commodore. 


10 P0KE808,225 

20 PRINTCHR$(14)CHR$(8) :P0KE5 3280,246 
30 DE$«" (CUR.SU) (33 SPCHCUR.SU}" 

HO N-7 

50 CR$«"(RVS ON)(2 SPC}"+ CHR$(186)+"{3 S 
PCJIRVS ON } " ♦ " ( 5 CUR.SIN)" 

60 E $-"{5 SPC}(5 CUR.SIN}" 

70 PRINT"fCLR}"i 

80 PRINT"{RVS 0N}(8 SPC)* (SH D}0S. (SH 
E). (SH M}ARTELLI *{9 SPC}{RVS 0N}" 

90 PRINTTAB(10)"(CUR.GIU}1) (SH F}ORMATT 
AZIONE" 

100 PRINTTAB(10)"2) (SH C)0PIA" 

110 PRINTTAB(10 ) "3 ) (SH R}ENAME" 

120 PRINTTAB( 1 0 ) " 4 ) (SH SlCRATCH" 


130 PRINTTAB(10)"5) (SH V}ALIDATE" 

140 PRINTTAB(10)"6) (SH D}IRETTORIO" 

150 PRINTTAB(10)"7) (SH F}INE OPERAZIONI 

II 

160 PRINT:PRINT:PRINT:PRINT 
170 PRINT"(5 SPC}(RVS 0N}(SH P}REMERE SP 
AZIO PER SELEZIONARE" 

180 PRINT"(5 SPC)(RVS ON}(30 SPC}" 

190 PRINT"{5 SPC}(RVS ON } (SH P}REMERE RE 
TURN PER LA CONFERMA" 

200 PRINT"{HOME){2 CUR.GlU}"; :L-1 
210 PRINTCR$ 

220 GETA$:IFA$-""THEN220 

230 IFA$<>CHR$(13) AND A$<>CHR$(32)THEN2 
20 

240 IFA$=CHR$(13)THEN270 

250 PRINTE$:L-L+1:IFL>NTHEN200 

260 G0TO210 


60 



L'uso dell'unità a dischi Commodore 


COMMODORE 64 


Seguito listato 1. 


270 PRINT"(HOME!" ; :FORI-1TON + 8 :PRI NT :NEX 
T 

280 ON L GOTO290, WO, 590,7H0,900,980,120 
0 

290 REM 

300 X X $ *■ "(S H FlORMATTAZIONE":G0SUB1230 
310 PRINT"{CLR){RVS ON ) (11 SPC}* {SH F)0 
RMATTAZIONE »{10 SPC)(RVS ON}" 

320 PRINT"{3 CUR.GIU}(2 SPC}NOME DEL DIS 
CO (MAX 18):" 

330 POKE631 , 1 5*4 : P0KE1 98, 1 : INPUT" (BLUE} " ; 
ND$ 

3*10 IFLEN(ND$)>l8THENPRINTDE$:G0T0330 
350 PRINT"(2 CUR.GIU}(2 SPC}(SH I}DENTIF 
ICAZIONE (2 CAR) 

360 P0KE631 , 1 5*1 :P0KE 198,1 : INPUT" ( BLUE } " ; 
I D$ 

370 IFLEN(ID$)>20RLEN(ID$)-1THENPRINTDE$ 
:GOTO360 

380 PRINT" (2 CUR .GIU } (2 SPCHSH CJONFERM 
I S/N ((SH M} PER MENU)" 

390 GETA$: IFA$-""THEN390 

HOO IFA$O"S"ANDA$O"N"ANDA$O"M"THEN390 
«IO IFA$-"N"THEN310 
1420 IFA$-"M"THEN20 

4430 OPEN 15,8,15: PRINT#15, "N: " + ND$ + " ," + ID 
$ : G0SUB1290:CLOSE15:GOT020 
mio REM 

4)50 X X $ - " ( S H ClOPIA" :G0SUB1230 
44 60 PRINT" (CLR ) (RVS ON }(1U SPC}* (SH C}0 
PIA «(IH SPC}(RVS ON)" 

»470 PRINT" (2 CUR.GIU} (2 SPC}fSH N } OME NU 
OVO FILE (MAX 16):" 

<4 80 POKE63 1 , 1 5 44 : P0KE1 98,1 : I N PUT" { BLUE } " ; 
NF$ 

44 90 IFLEN(NF$)>1 6THENPRINTDE$: GOTO480 
500 PR I NT " ( 2 CUR.GIU}(2 SPCHSH N}OME FI 
LE DA COPIARE (MAX 16):" 

510 P0KE631 , 1 5*4 : POKE 198,1 :1 NPUT" { BLUE }" ; 
FC $ 

520 IFLEN(FC$)>16THENPRINTDE$:GOT0510 
530 P RIN T " ( 2 CUR . GIU } (2 SPCHSH CJONFERM 
I S/N ((SH M} PER MENU)" 

5440 GETA$:IFA$-""THEN540 

550 IFA$0"S"ANDA$0"N"ANDA$0"M"THEN540 
560 IFA$-"N"THEN460 
570 IFA$-"M"THEN20 

580 OPEN15,8,15:PRINT*15,"C:"+NF$+"-"+FC 
$:G0SUB1290:CL0SE15 :G0T020 
590 REM 

600 XX$»"(SH RlENAME":G0SUB1230 
610 PRINT"(CLR)(RVS ON } { 14 SPC}* (SH R } E 
NAME *(14) SPC} (RVS ON)" 

620 PRINT" ( 3 CUR . Gl U } (2 SPCHSH N}UOVO N 
OME PROGRAMMA (MAX 16):" 

6 30 POKE6 31 , 1 5*4 : POKE 198.1 : INPUT" ( BLUE }" ; 
NP$ 

6 44 0 IFLEN (NP$)>1 6THENPRINTDE$:G0T0630 
650 PRINT"{2 CUR.GIU}(2 SPC}(SH N}OME VE 
CCHIO PROGRAMMA (MAX 16):" 


660 POKE631 , 1 54): POKE 198,1 : INPUT" {BLUE}" ; 
VP$ 

670 IFLEN(VP$)>16THENPRINTDE$:G0T0660 
680 PRINT"(2 CUR.GIU}(2 SPC}(SH C}ONFERM 
A(2 SPCJS/N (M PER MENU)" 

690 GETA$:IFA$-""THEN690 

700 IFA$O"S"ANDA$<>"N"ANDA$O"M"THEN690 
710 IFA$-"N"THEN610 
720 IFA$-"M"THEN20 

730 OPEN15,8,15:PRINT#15,"R:"^NP$ + " = "->-VP 
$:GOSUB1290:CLOSE15:GOTO20 
7440 REM 


750 

XX 

$."{ 

SH SlCRATCH":G0SUB1230 



760 

PR 

I NT" 

(CLR)(RVS ON}{ 

1 <4 SPC}* 

(SH 

S}C 


RACTH 

* ( 1 41 SPC} (RVS 

ON}" 



770 

PR 

INT" 

(2 CUR.GIU}(2 

SPC}(RVS 

ON } 

(SH 


R) 

ICHI 

SSTA ULTERIORE 

CONFERMA 

! ! 

! (RV 


S 

ON}" 

: PRINT"(CUR.GIU}(2 SPC} 

(SH 

C}0 


NFERMI S/N" 

780 GETA$:IFA$-""THEN780 

790 IFA$O"S"ANDA$O"N"THEN780 

800 IFA$-"M"THEN20 

810 PRINT" ( 3 CUR . GIU ) (2 SPCHSH N } OME DE 
L FILE DA CANCELLARE (MAX 16):" 

820 POKE63 1 , 1 544 : POKE 198,1 : INPUT" ( BLUE )" ; 
FL$ 

830 IFLEN(FL$)>l6THENPRINTDE$:G0TO820 
8440 PRINT" ( 2 CUR.GIU} (SH E}’ QUESTO IL 
FILE DASA CANCELLARE S/N" : PRINT"(2 S 
PC}((SH M) PER MENU)" 

850 GETA$:IFA$«""THEN850 

860 IFA$<>"S"ANDA$O"N"ANDA$O"M"THEN850 
870 IFA$-"N"THEN760 
880 IFA$«"M"THEN20 

890 0PEN15,8,15:PRINT#15,"S:"+FL$:G0SUB1 
290:CL0SE15:GOT020 
900 REM 

910 X X $ «"(S H VJALIDATE":G0SUB1230 
920 PRINT"(CLR}(RVS ON}(12 SPC}* (SH V}A 
LIDATE *( 1 <4 SPC} (RVS ON}" 

930 PRINT"{3 CUR.GIU1(2 SPC)(RVS ON)(SH 
A } {2 SH T)(SH E}(SH N } {SH ZlISH I}{S 
H 0} ( SH N ) {SH EHRVS ON} AI FILE (SH 
R ) ( SH E}(SH L } {SH A}(SH THSH I}(SH 
V } (SH 1} ! ! !":P RIN T"{2 CUR.GIU) CON 

FERMI S/N" 

9 440 GETA$: I F A$-» " THEN9 *40 

950 IFA$O"S"ANDA$O"N"THEN940 
960 IFA$-"M"THEN20 

970 0PEN15,8,15:PRINT#15 , "V" : G0SUB1 290 : C 
LOSE15 :G0T020 
980 REM 

990 X X $ -"(SH D}IRETTORIO":G0SUB1230 
1000 PRINT"(CLR)(RVS ON } {11 SPC}* (SH D} 

I RETTORIO *(H4 SPC } ( RVS ON } " 

1010 OPEN 15 , 1 , 15 : OPEN 1 , 8,0 . " $" : GOSUB1290 
:IFB$<>"0K"THENCL0SE1:G0TO20 
1 020 GET II 1 , A$ , B$ 

1030 GET4M , A $ , B$ 

10U0 GET4M , A$ , B$ 

1050 C-0:IFA$<>""THENC-ASC(A$) 

10 60 IFB$<>""THENC«C + ASC(B$)*256 
1070 PRINTMID$(STR$(C) , 2 ; TAB(K); 


61 
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L'uso dell'unilà a dischi Commodore 


COMMODORE 64 


Seguilo listato 1. 

1 080 GET01 ,B$:IFSTOOTHEN1 160 
1090 IFB$OCHR$( 3*OTHEN1 080 
1100 GET01 ,B$:IFB$OCHR$(34)THENPRINTTB$ 
i: GOTO 1100 

1110 GET#1 ,B$:XFB$-CHR$(32)THEN1 1 10 
1120 PRINTTAB(22) ::C$-"" 

1130 C $-C$ + B$ : GET<M ,B$: IFB$<>""THEN1130 
1140 PRINTLEFT$(C$,3) 

1150 IFST=0THEN1030 

1160 PRINT"BLOCCHI LIBERI" 

1170 CL0SE1tCLOSEI5:PRINT:PRINT"{RVS ON } 
PREMI UN TASTO{2 SPC}QUALUNQUE PER 
IL MENU.{2 SPC}" 

1180 GETX$:IFX$-""TRENI 180 
1190 G0T020 
1200 REM 

1210 XX$-"{SH F}INE {SH 0}PER.":GOSUB123 


0 

1 220 PRINT"{CLR}":PRINTCHR$(142)CHR$(9 ) t 
P0KE808.2 37:P0KE53280,25 4 : END 
1230 PRINT"{CLR}(RVS ON } {7 SPC}« {SH R}I 
CHIESTA CONFERMA *{10 SPCHRVS ON} " 
1 240 PHINT"{HOME}( 1 I CUR.GIUHSH ClONFER 
MI L'OPZIONE DI "XX$" S/N" 

1250 GETA$:IFA$»""THEN1250 
1 260 IFA$0"S"ANDA$0"N"THEN1 250 
1270 IFA$«"N"THEN20 
1280 IFA$-"S"THENRETURN 
1290 INPUT#15.A,B$,C,D 
1300 IFA$<20THENRETURN 
1310 PRINT"{2 SPC}"A,B$,C,D 
1320 CL0SE15 

1330 PRINT"{4 CUR.GIU} {SH P}REMI UN TAS 
TO" 

1340 GETA$:IFA$-""THEN1340 
1350 RETURN 
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SERVIZIO SOFTWARE 


Bit e Personal Software propongono ai 
propri lettori i dischi o le cassette dei 
programmi pubblicati. Uso e descrizione 
dei programmi si trovano sui rispettivi 
numeri delle riviste. 



In 

1" 

1 il 

= = =.- _ _ =. = =-= = 

_ 

=—==_ : 

=: = 

— *=1. — “ — — “ 

zzzz 


— —— s 





Bit n* 

Programma 

Sistema 

Codice 

Supporto 

38 

Gioco della Kimmli 

Spaccami (toni 

Vie 20 

VI 381 

Cassoni 

38 

Piatici 

Apple Il 

AP382 

Disco 

42 

Appio Chef 

Appio II 

AP422 

Disco 

42 

Provatine»! 

Vie 20 

V1421 

Cassetta 

45 

Tiny Forrh 

Apple II 

AF452 

Disco 

45 

Ali B.ib.1 

ZX Spoeti um 

SP45I 

Cassetta 

46 

FonuKiuanro 

Appi» Il 

AP462 

Disco 

48 

Simula volo 

2X Speelrum 

SP48! 

Cassetta 

48 

Memory Alfe iV 

C 64 

C648! 

Cassetta 

49 

50 

50 

51 

53 

Scoi plori 

FpPlot 

Prima e Tersa 

Magicataloa 

Partita a golf 

Appio II 

Appton 

AP492 

APS02 

SP50I 

AP512 

V153I 

Di»?o 

Disco 

Cassetta 

Duco 

Cassetta 

Appiè 0 

Vie 20 

53 

Analisi numerica 

C 64 

C6531 

Cassetta 

53 

Pl/Bil il compilatore 

Apple II 

AP532 

Disco 

55 

Costollotionn 

Appio II 

AP542 

Disco 

55 

Como polar izxsrn t rranaialor 

C 64 

C6541 

Casseri* 

58 

Memory Omega l 

C 64 

C6S82A 

Disco 

58 

Copy disk por C 64 

C 64 

C6S828 

Duco 

59 

Checksum 64 

C 64 

C6S82 

Disco 

59 

Checksum 64 

C 64 

C659I 

Casse!'* 

59 

Diti Bank 

ZX Speci rum 

SP591 

Cassetti 

60 

Ldé Hai 

Appi* a 

AP602 

Disco 

60 

Tutti pinoti 

C64 

06601 

Duco 

eo 

Difesa dell* Tetra 

C 16 

C1601 

Cassetti 

60 

Lost on thè pack 

Sej> 

SF.601 

Cassetti 

€0 

Setdat* e Wordproc 

ZX Spoeti um 

SP60I 

Cassetta 

60 

il Baione Rosso 

TI99/4A 

T1601 

Cassetta 

60 

Word processor 

C64 

C8802 

Disco 

60 

Othello 

Vie 20 

VI 601 

Cassetta 

61 

Disegno di mobili componibili 

C 16 

CI611 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6611 

Cassetta 

61 

Esperimento di Millikan 

C64 

C6812 

Disco 

61 

Disegnato m alta risoluzione 

ZXSpectrum 

SP611 

Cassetta 

61 

Ptinting music 

TI99/4A 

neii 

Cassetti 

61 

Musica facile 

Sega 

SEBI 1 

Cassetti 

61 

Vie-Cale 

Vie» 

Violi 

Cassetta 

62 

Gestione conto cor tento 

C 64 

C6622 

Disco 

62 

Gioco della tombola 

TT99/4A 

TT62! 

Cassetti 

62 

Aspe Io Speonim contro la carie 

ZX Spectrum 

SP62! 

Cassetta 

63 

Operano» in peguu grafica 

Apple n 

AP632 

Duco 

63 

Grafici a barre verticali 

C 16 

CI63I 

Cassetta 

63 

Contabilità casalinga 

C 64 

05632 

Disco 

63 

Disegnato sullo schermo 

Mi* 

MS63J 

Cassetta 

63 

Over Basic 

ZX Spoeti um 
T199/4A 

SP631 

Cassetti 

63 

Le otto Regine 

Egitto 2000 

T163I 

Cassetta 

63 

Vie» 

VJ63! 

Cassetta 

64 

Roller 

Appio 1! 

AF642 

Disco 

64 

Come ristorniamo i mobili' 

C 16 

CI641 

Cassetta 

64 

Titolazioni simulato 

C 64 

C6642 

Disco 

64 

Deteldor 

Max 

MS641 

Cassetta 

64 

Colo: compositoi 

Sharp MZ-700 

SHÒ4I 

Cassetta 

64 

Computer music 

TIS9/4A 

T164I 

Cassetta 

65 

Integet compite: 

ZXSpectrum 

SP6SI 

Cassetta 

66 

Battaglia navale 

C 16 

C166I 

Cassetta 

67 

Analisi di reti elettriche 

Apple 11 

AP672 

Duco 

67 

Concerto grosso 

C 16 

C1671 

Cassetta 

67 

Cesitene contabiliti magazzino 

C64 

08672 

Disco 



Bit n* Programma Sistema Codice Supporto 

67 Vldeoquis 85 Max MS67I Cassetta 

68 Pianoti e miciocotnputot Appio II AP682 Diaoo 

68 Un computer por la didattica CIO CI68I Caffeina 

68 Classifica Campionato di calcio Msx MS68I Cassetta 

68 Grafici, dugumml istogrammi Appio» AP692 Disco 

69 Calcolatrice in Rpn CIC CI69I Caasotia 

69 Calorimetro C64 C5692 Disco 


69 

Classifica Campionato F I 

Ms* 

MS69I 

Cassetta 

69 

Educazione musicale 

1799/4A 

T1691A 

Cassetts 

69 

BiUurd Pocket 

TO9/4A 

T1651B 

fusili 

70 

Set di caratteri 

C 16 

C1701 

Cassetta 

70 

Prettei 20 

M» 

M2702 

Disco 

Bit n* 

Programma 

Sistema 

Codice 

Supporlo 

3 

La catta del cielo. Collisione 

Apple II 

AP032 

Disco 

4 

Interi in precisione multipla 





Grafica uD 

Apple 11 

AP042 

Disco 

S 

Pretty pnntoi. Shapo tibie 

Apple II 

AP052 

Disco 

7 

Data base modulare 

Apple II 

AP072 

Disco 

14 

Tool-Kit 

C 64 

G6I41 

Cassetta 

19 

Type-Writer 

Vie» 

VI 192 

Disco 

» 

Scopa 

C 64 

06»! 

Cassetta 

30 

Geo-Rao* 

ZX Spoetiuir. 

SP301 

Cassetta 

3! 

Progetto aeromodello 

MSX 

MS3I1 

Cassetta 

31 

Scopa a tre carte 

Apple n 

AP312 

Disco 

3! 

Grand Pru 

C64 

C63I2 

Duco 

31 

Spnte 

ZXSpectrum 

SP3J1 

Cassetta 

3! 

Box 

C 16 

CI 311 

Cassetta 

32 

Animazioni di funzioni 





tridimensionali 

ZxSpocmim 

SP32I 

Cassetta 

32 

Prospettiva e grafica tridimensionale C 64 

C632I 

Cassetta 

33 

Music edilot 

C64 

C633I 

Cassetta 

33 

Bogey Boogie 

TI99/4A 

T1331 

Cassetta 

33 

Totocalcio 

Vie» 

VI33I 

Cassetts 

34 

Progettazione filtri attivi 

Sharp MZ 700 

SH33I 

Cassotta 

34 

Spnte per disegnare 

ZXSpectrum 

SP34! 

Cassetta 

34 

Battaglia galàttica 

Apple 11 

AP342 

Disco 

35 

Briscola 

Shup MZ-700 

SH351 

Cassetta 

35 

Forza 4 

T199/4A 

TOSI 

Cassetta 

35 

Totocalcio 

Mu 

MS351 

Cassetta 

35 

Muuediior 64 

C64 

C6351 

Cassetta 

35 

Tappeto mobile 

Apple 11 

AP3S2 

Disco 

38 

Fuga al buio 

Apple n 

AF • 1 1A 

Disco 

38 

Prodotto 

Appio n 

AP3628 

Disco 

36 

M» Paint 

M» 

OL362 

Disco 

36 

11 campanaro 

Apple H 

AP362C 

Disco 

36 

Lucy wnter 

ZX Spectrum 

SP36I 

Cassetta 

36 

Freesfcy 

Sharp MZ-700 

SH38I 

Cassetta 

36 

Chess training 

TI99/4A 

T1361 

Cassetta 

36 

Input simulato 

Max 

MS361 

Cassetta 

37 

Grafica 3D 

eie 

CI37I 

Cassetta 

37 

Panico 

Zx Spectrum 

SP371 

Cassetta 

37 

Cruci Max 

Mss 

M5371 

Cassetta 


Per richiedere i programmi in contraaaegno, pagando direttamente al poatino la cifra indicata, inviare il aegnente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

- 


Inviatemi i seguenti nastri e/o dischi con i pro¬ 
grammi pubblicati su Bit - Personal Software 




GRUPPO EDITORIALE JACKSON 


n«a. 1 1 1 1 1 1 1 

iL. 

11151010101 

r«H 1 1 1 1 1 1 1 

• L. 

i i i i i i 

1 1 1 1 1 1 1 

iL. 1 

i i i i i i 

RaS. 1 1 1 1 1 1 1 

iL. | 

i i i i i i 

+ SPESE POSTALI 
(contributo fimo) 

1 

i |3|0|0|0| 


Cognome 

Nome. 

Indirizzo. 

CAP. 

Città. 


TOTALE L. I_I_I_I_I_I 


che pagherò al postino alla consegna del pacco 


Firma. 







































CON INSERTO SUPERBI 

64 PAGINE DI SOFTWARE PER IL TUO PERSON, 


e in 

edicola 
il nuovo 
numero 


Bit, la prima 
e più diffusa rivista 
di personal computer 
e accessori 



UNA 

PUBBLICAZIONE 

DEL 

GRUPPO 

EDITORIALE 

JACKSON 

SAN FRANCtSCO-LONDHA-MILANO 



Bitest 
Philips :Yes 

Morrow 
Pivot II Elite 

Cartridge 
Date - time C 64 

Mar modem 

Bstep per Apple 

Pixel per Msx 

Interpolazione 
per QL 

Lancio 

col paracadute 
per Atari 

Set di caratteri 
per C 16 

Plotter 2.0 
per M20 

SPECIALE: 

INTELLIGENZA 

ARTIFICIALE 

















Apple 


Cambio software per Apple senza scopo di lucro. Dispongo di 
molti programmi, assicuro la massima serietà. Scrivere a: Mas¬ 
simo Giladetti - Via Borsi. 62 - 28100 Novara 


Vendo Apple II plus 48 Kbyte, monitor a fosfori verdi, drive con 
interfaccia, stampante bidirezionale 80-132 colonne con intefac- 
cia. dischi; il tutto a L. 2.000.000. Sergio Carone - Via Bagnala, 
13/A - 52100 Arezzo - Tel. 0575/966043 


Vorrei contattare utenti di Macintosh - Apple II • Ibm per scambi 
di soltware ed esperienze. Mauro Tazzari - Via Canalazzo. 44 - 
48100 Ravenna - Tel 0544/461687 


Cambio software per Macintosh. Dispongo di molti programmi. 
Giovanni Meloni - Via L. Canali. 6 • 02100 Rieti - Tel. 0746/45134 


Desidero iniziare con tutti gli applisti italiani uno scambio di 
programmi per Apple Ile. Massima serietà, contattare: Giovanni 
Gardini - Via F. Coradini. 2 - 52100 Arezzo 


Per Apple II - Il plus vendo drive 5" con alimentatore, piattina per 
2 drive, controller per interfacciare tutti i drive a 40 tracce; il tutto 
a 1. 350.000. Vendo inoltre schede Nuova Elettronica e Micro 
Design. Ottimi prezzi. Telefonare ore serali. Massimo Nonato - 
Via XX Settembre. 32 - 28010 Gargallo (NO) - Tel. 0322/95504 


Commodore 


I Vendo Vie 20, un anno di vita, più registratore 1530 ed ■ 
I espansione 16 Kbyte a L. 200.000. Giovanni De Virgilis ■ 

■ - Via Europa. 30 - 20097 S. Donato Milanese (MI) - Tel. ■ 

■ 02-5272109 ■ 


Vendo C 64 più registratore e 200 programmi su cassetta (giochi, 
utility e applicativi) a L 350.000 Solo 6 mesi di vita, imballi 
originali, spese a mio carico. Emidio Borzi - Via Cellini. 44 - 
74029 Talsano (TA) - Tel. 099/511761 


Vendo C 64 piu registratore C2N, numerosissimi giochi e utility 
con relativi manuali, Quickshot II più tasto reset a sole L. 
320.000. Vi aspetto, telefonate! Fabrizio - Milano - Tel. 
02/5275578 


Vendo Commodore Pel 2001 più 115 giochi e programmi, moni¬ 
tor. registratore, cassetta pulisci testina a L. 550.000. Telefonare 
ore pasti o alle 18.00 oppure scrivere. Fabio Talamini - Via Eroi 
del Lavoro. 12 - 04100 Latina - Tel. 0773/498036 


L’Eporedia computer club cede cartrldge Fast Driver per C 64 ed 
espansione 3-8-16 Kbyte per Vie 20. Graditi scambi di program¬ 
mi per C 64. Eporedia Computer Club - c/o Carlo Laiolo - Via 
Rovagnone. 14 - 10015 Samone (TO) - Tel. 0125/53115 


Per C 64 compro giochi su nastro o, preferibilmente, su disco. 
Cerco Pac man. Mrs. Pac man. Pillali e Ghostbusters a prezzi 
modici. Walter Raffaelli - Via Mazzini. 125 - 26013 Crema 


Vendo C 64 più registratore a sole L. 450.000, in omaggio casset¬ 
te con programmi di giochi e utility. Assicuro e richiedo la 
massima serietà. Scrivere o telefonare a: Antonio Mallozzi - Via 
Privala Ciufo. 6 - 04020 M. di Minturno (LT) - Tel 680016 


Sinclair 


Vendo Zx Spectrum Plus con Interfaccia programmabile, joy¬ 
stick, 40 programmi, libro “Alla scoperta dello Zx Spectrum" a L. 
400.000 trattabili. Solo zona Venezia. Alessandro Paoletti - Via 
Crea. 75/F - 30038 Spinea (VE) - Tel. 041/996301 


Il Club Spectromania offre 12 programmi fra I migliori per il tuo 
Zx Spectrum: Hyper sports. Superboxe challenge, ecc. Tutto 
compreso a sole L. 30.000. Club Spectromania - Via delle Romi¬ 
te. 8 - 50124 Galluzzo (FI) - Tel. 055/2048705 


Compro Zx Spectrum normal 48 Kbyte. Telefonare dal lunedi al 
venerdì ore pasti allo 0545/27637 oppure sabato e domenica allo 
0541/34835 chiedendo di Mauro. Mauro Ferri - Via Stoccolma, 29 
- 47037 Rimini (FO) - Tel. 0541/34835 


Vendo In blocco o separatamente oltre 1.000 programmi Spec¬ 
trum al miglior offerente (min. L. 25.000). Vendo inoltre 50 pro¬ 
grammi Msx a L. 100.000. Doriana Orlandi - Via Quasimodo. 6/C - 
46023 Gonzaga (MN) - Tel. 0376/588555 


Vendo Spectrum Plus con oltre 1.000 programmi al miglior offe¬ 
rente (min. L. 500.000). Vendo anche separatamente. Annuncio 
sempre valido. Andrea Cicogna - Via Quasimodo, 6/C - 46023 
Gonzaga (MN) - Tel. 0376/588555 


Vendo Zx81 perfetti con cavetti, alimentatore, manuale della 
casa. 3 libri (valore L 48.000) e due giochi, Centipede e Star trek 
a L. 85.000 trattabili. Andrea Focardi - Via G. Di Vittorio, 56 - 
50015 Grassina (FI) - Tel. 055/64204 


Texas 


Por TI99/4A vendo disk drive a L. 200.000. Telefonare ore sferall. 
Lello Zorzato - Via Fedro. 4 - 80126 Napoli - Tel. 081/7427068 


Vendo TI99/4A più Extended Basic, manuali di: introduzione al 
Basic, giochi ed Editor/Assemblor. Tutto come nuovo a L. 
300.000. I eletonare ore 20.00. Sergio Nova - Via della Torre. 31 - 
20127 Milano - Tel. 02/2895347 


Favoloso! Vendo Per TI99/4A Editor/Assemblor più Mulllplan 
completo di manuale e relativi dischetti, minimemory. Terminal 
emulator II. Statistics, Moonmine, Othello. Munchman e Tom- 
bstone city. Tutto il materiale è nuovissimo, ancora imballato; L. 
999.000. All’acquirente regalo 23 dischetti più cassette con 500 
programmi professionali e interfaccia per disk drive. Rocco 
Macrl - c/o Istituto Serafico - 06081 Assisi (PG) - Tel. 075/812546 


Vendo rivista con cassetta TI99 New Soft dal nr. 0 al nr. 12 a L. 
70.000 in blocco o a L. 8.000 cadauna; stampante Seikosha 
Gp50A interfaccia Centronics a L. 230.000. Giorgio Caslagnaro - 
Via Buonarroti. 13 - 21013 Gallarate (VA) - Tel. 0331/796139 


Svendo modulo Extended Basic e cassette giochi per Texas 
TI99/4A. Telefonare a: Ercole Donati - Via Appennini, 13 - 20151 
Milano - Tel. 02/3533564 


Vendo TI99/4A più registratore originale, modulatore, alimenta¬ 
tore, interfaccia registratore, coppia joystick, Extended Basic, 
manuali. Sss Attack, cassette programmi e riviste specifiche a L. 
400.000. Fabio Cerallo - Viale di Trastevere. 70 - 00153 Roma - 
Tel. 06/581607 


Varie 


Cambio programmi per sistema Msx. Telefonare ore pasti An¬ 
drea Pimpolari - Via R. Malalesta. 58 - 00176 Roma - Tel, 
06/294106 


Vendo computer Msx Philips Vg-8010 a L. 400.000 trattabili. 
Fedele Schipani - Via N. Sauro, 2 - 84091 Battipaglia (SA) - Tel, 
0828/23633 


Vendo Ibm Pc 256 Kbyte Ram, due floppy disk da 360 Kbyte più 
stampante grafica Ibm 80 colonne. Usato pochissimo, ancora in 
garanzia. Franco Meggioni - Via IV Novembre, 6 • 22067 Missa- 
glia (CO) - Tel. 039/9200784 


Cerco per Mz-700 stampante Centronics Gip in buone condizioni 
e a prezzo ragionevole Telefonare a: Francesco Crispo - Via P 
Amedeo. 221 B/4 - 00100 Roma - Tel. 06/7314982 


Vendo Alari 130Xe (due mesi di vita) più registratore Atari, 5 
cassette. 2 manuali. 1 joystick; Il tutto, ancora in imballi originali, 
a sole L. 495.000 Maurizio Cagneschi - Via dei Cipressi, 6 -10090 
Bruino (TO) - Tel. 011/9086126 


Soft Sharp club Roma cambia programmi per Mz-700. Tutti i 
programmi sono garantiti funzionanti. Per informazioni rivolger¬ 
si a: Francesco Loriga - Via Fulda. 115 - 00148 Roma - Tel. 
06/5222504 


Vendo per Ibm Pc e compatibili sistema operativo, Basic, Turbo 
Pascal, Cobol, alcuni copiatori. Prezzo da concordare. Per infor¬ 
mazioni rivolgersi a: Andrea Maggi - Via F.lli Cervi. 8/D - 20010 
Cornaredo (MI) - Tel 02/9317678 


Vendo computer Ibm compatibile con 256 Kbyte di memoria, 
video e doppio floppy, completo di programmi gestionali e pro¬ 
grammi personalizzati Prezzo affare. Claudio Giovanelli - Via 
Ripamonti. 194 - 20141 Milano - Tel. 02/53692 
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Suonare è facile. 


MUSIC MASTER trasforma il tuo CI6 in 
un fantastico strumento musicale. 

Anzi, ancora ili pitie puoi scegliere tra il 
dolce e melanconico flauto, o il più 
sfrontato e moderno synt o ancora il 
simpatico ed essenziale xilofono. 

Carica il programma SINTETIZZA TORE e 
sperimenta, utilizzando la apposita tastiera, 
le grandi possibilità del tuo piccolo, grande 
computer. 

Le pagine seguenti ti informeranno su come 


ciò sia possibile, ti ricorderanno i principi 
fondamentali della musica. 

Qualunque sia la tua preparazione in 
questa materia, sarai in grado di leggere e 
riprodurre col tuo db qualsiasi brano 
musicale. 

Grazie al programma MUSIC EDI/OR 
potrai infatti introdurre nella memoria del 
computer la musica composta da te o 
ricavala da spartiti, per poi riascoltarla a 
tuo piacimento. 
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